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module uafparse ( (but ,, 
fdent se vb4-880" 


benta addressing _mode(external=general, nonexternal=general)) = 

' 
lenneneenereneneneetennenteneneererrecterterrerteerennnernntentnntnntentnetts 
'® 

:* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 

is mt SOFTWARE IS FURNISHED renee A LICENSE AND MAY BE USED AND copree 
ed Y IN eat WITH THE TERMS OF SUCH LICENSE AND WITH THE 
he IN NCL USION OF THE ABOVE Seats yf aT SOFTWARE OR ANY OTHER 


® 
® 
® 
® 
et 
® 
® 
® 
' e 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
ie TRANSFERRED. . 
' e 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
& 
® 
a 
® 
o 
te 
x 
® 


tt AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!t CORPORATION. 
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ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'e 
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FACILITY: System Management Utility Program 

: ABSTRACT: Parsing subroutines for the AUTHORIZE utility 

ENVIRONMENT : 

AUTHOR: Henry M. Levy , CREATION DATE: 1-June-1977 

i j Mair tee BY: 
vO3-022 JRLOOS5 John R. Lawson, Jr. 07-Aug-1984 15:49 

Fix PWD_EXPIRED ee flag to be set with passwords. 
v0O3-021 JRLOO22 n R. Lawson, Jr. 09-Jul-1984 13:40 
Supply missing San (if necessary) on /DIRECTORY. 

v03-020 JRLOO11 Joh Lawson, Jr. 02-Jul-1984 14:40 


Add Literal WORD TONS IGNED® LENGTH (=17) for unsigned 
words in WS info. 


v03-019 JRLOO12 n R. Lawson, Jr. 21-Jun-1984 15:56 
Add /GENERATE seat thes to generate random passwords. 


v03-018 JRLO008 Lawson, Jr. 20-Jun-1984 14:19 
Add /PWDEXPIRED sel itles to allow pre-expired passwords. 


v03-017 JRLOO07 John R. Lawson, Jr. 20-Jun-1984 14:18 
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rb-seont9ee OR:21:]g 
Add /PWOLIFETIME=NONE qualifier. 


v03-016 JRLO002 John R. Lawson, 15-Jun-1984 12:54 
Change all aetts es tite calls to LISSSIGNAL, place all 
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oO 
Oooo 
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. 1! Ps 
; § 1 i ; 
3 7% $ 
F ° 1! : 
; ? § | } messages in a ; 
> 64 64 1 i v03=015 LY0475 9-APR-1984 08:34 : 
3 69 Be? it 7NOEXPIRAT ION” or "YNOPUDLIFE is specified then : 
: 68 bee } zero the field in the UAF record. : 
: 68 068 1 | VO3=014 LY0467 Larry Yetto 22-MAR=1984 13:53 : 
: i ! Add support for the Lights data base functions : 
a. 71 1! v03-013 ACGO397 Andrew C. Goldstein,  6-Feb-1984 16:25 : 
: 4 Ore ; } Add DISREPORT flag to UAF; fix bugs in storing secondary : 
; x 0074 1 | pantaers : 
: 75 Boye &. v03-012 ACGO388 Andrew C. Goldstein, 12-Jan-1984 18:52 . 
3 7 o76 1! Add command input to handle new UAF features; : 
; a it ! general code cleanup : 
: 79 $079 ii v03-011 ACGO385 Andrew C. Goldstein,  6-Jan-1984 14:18 ; 
: 80 Bone : } V4 UAF format change : 
: 82 008¢ 1 i vO3-010 TMKO001 Todd 11-0¢t-1983 ; 
om 0083 1! Add JTQUOTA (job-wide lenlent name table creation quota) 3 
3 ae pose : qualifier. : 
: 86 86 1 | v03-009 LMPO153 L. Mark Pilant, 13-Sep-1983 11:41 ; 
: 4 ff : Add minimal support for alphanumeric UICs. : 
: 89 89 1 i 008 JWT0105 Jim Teague 04-Apr-1983 : 
: + Hs : Finish up long 7 la stuff. : 
: 3 9 1 i 007 W70104 Jim Teague 29-Mar-1983 ; 
: a 7 : add CLITABLES qualitien. : 
: 95 5 1: 006 wMc0001 Wayne Cardoza 15-Mar-1983 ; 
: 38 ! } Add MAXDETACH qualifier ; 
> 98 1: 005 JwT0076 Jim Teague 13-Dec-1982 ; 
3 180 : ! Fix bug in ep "ule specs. : 
: 101 101 1: 004 WT0046 eaque O-Jul=1982 3 
3 : ‘ : } : theck null snoniiell be ng e verte n GETPASSWORD : 
: 4 104 1! 003 Jw70030 Jim Teague 03-May-1982 ; 
3 : 5 : : Accomodate ufd cap specs : 
- 107 1: 002 JwT0029 m Tea 20-Apr-1982 : 
3 ' : ! Completely disable fanniactiobe : 
> 110 110 1: 001 JwT0023 Jim 17-Mar-1982 F 
ie BB 1 1! Enforce default directory. syntax more strictly by 3 
3 136 : ' : cranking the spec through tparse. : 
: 194 114 1 i-- : 
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Require files: 


—t st 


require 


——) 4 4 


*LibS:uafreq'; 
OF CONTENTS: 


E 


forward routine 


; 1 § .; oe 3 
; 4 YY 1 3 
ee 8 7 : 
5 18 #1 ; 
: 120 19 1 3 
- 1 | 7 
23 : 9 1 : 
: 124 18 1 : 
3 Yeo 19 1 : 
; § 0 1 F 
s e update_record, ! modify all apec ti led fields : 
> 128 § 1 getaccess, ' get access flag bits 3 
: 129 1 check_primary, ! verify ‘primary'’ keyword ; 
s 130 4 1 check_secondary, ! verify pecendery eyword 3 
3 13) 0225 1 set_range, ! set hourly restriction bits 3 
; % ; 0 § 1 getcputim, ! get cpu time quota : 
7 0 1 getdevice, ' get default device name : 
: «134 0228 1 getdirectory,. ' get default directory 3 
s 139 0229 1 checkvalue ! check UFD group and member value : 
; 136 0230 1 checklength, ! check Cireq tery name length : 
; 13 0231 1 getflags, ! get flag bits 3 
; 133 0 § 1 getpflags, ' get old per day login flags : 
; 139 0 1 getrestrict, ! get old hourly restriction values : 
3; 140 0234 1 getprimedays, ! get primary day is : 
3; «(141 0235 1 getpriv, ' get process pr yi Leges 3 
: 1°6 0236 1 getuic, ! get user identification code 3 
; (14 0237 1 parse_uic, ! obtain ie group and member 3 
2 144 0238 1 parse_wild, ' parse wildcarded user specification 3 
3: «(145 0239 1 parse_wild_uic, ! parse wildcarded UIC : 
3: 146 0240 1 getstring, ' get string from input : 
3; «147 0241 1 getval, ! get numeric value from user : 
: «4148 0 4g 1 cvtnum, ' convert decimal ascii to binary 3 
3; «6149 8 45 1 UAF SGENERATE, ' generate necessory pqssver s 3 
; 150 44 1 ETPASSWORD ' update password fields : 
: 131 : 45 AUTHORIZE_GENERATE; i Interface to PL/I : 
: 135 0247 1 3 
: «154 0 $8 1 external routine : 
3 «6155 49 #1 3 
: 138 50 1 eealy PASSWORDS, : 
3; 15 51 1 SYSSASSIGN, ; 
; 158 26 1 SYSSDASSGN, 3 
3; 159 1 SYS$Q10W, 3 
; 160 4 1 LIBSGET_VA, : 
: 161 : STRSUPCASE, 3 
; 106 2$ 1 STRSUPCASE, 3 
: + 2 LibStparse : addressing_mode (general), : 
: 164 28 1 Libs Copkup key : addressing_mode (general), : 
: 165 1 cli$dcl_parse, 3 
; 166 60 1 cli$present, 3 
: 16 61 1 cli$get_value, : 
; 198 $6 1 faoout, : output formatted message 3 
3 18 1 tg! hpwd, ! hash password routine : 
: 170 1 LibScvt_dtime, ' convert ASCII to system delta time 3 
. tr 65 1 LibScvt_time, : convert ASCII to system abs time : 
3; 172 66 1 prv$setpriv; ' set privilege bits based on 3 
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1-88-1986 89:51:28 DT sksume 
! privilege names 

' 


; INCLUDE FILES: 


library ‘SYS 
Lib S 


IBRARY: TPAMAC'; 
rary ‘SYS$LIB 


$L 
SLIBRARY:L1B'; 


i MACROS: 


acro 
cstringl) = (uplit byte (X%charcount (%string (Xremaining)), 
%string (Xremaining)))%, 


Macro to Freete string descriptor for command parameters and 


qualifiers 

sdCa) = 
bind Zname (‘SD_', a) = $descriptor (a)%; 

sd ( 
*tokenl', ‘token2', ‘account’, ‘astlm', 
‘biolm', axthe, ° ‘at t*. ‘cputime', 
‘device’, ‘diolm', ‘directory’, ‘enqim'’, 
*fillm', ‘flags’, *lgicmd', *maxjobs', 
‘owner’, ‘password’, *pbytla', ‘pflags',. 
‘pgflquota’, ‘op restrict’, ‘preclm', ‘priority’, 
‘privileges’, ‘'sflags', ‘s restrict’, ‘shrfilim', 
*tqelm', ‘uic' ‘wsdefault', *wsextent', 
*wsquota', display", . rimedays', *maxacctjobs', 
*maxdetach', clitables', Ptquota ‘ "access' 
‘batch’, ‘defprivileges’,'dialup’ , ‘expiration’, 
‘interactive’, ‘local’ ‘network’, ‘pwdlifetime’, 


al’, 
*pwdminimum', ‘quepriority’, ‘remote' 


) 
i] 
: The definition table for flag bits for UAFSB_FLAGS. 
i 


em tk a ke et a ss a ss a ss 4) 9 4 2 se 


iteral 
num_ flags = 13, ! number of FLAG_TABLE entries 
num_opflags = $e ' number of OPFLAG_TABLE entries 
num_pdflags = 7; ' number of entries in prime days table 

n 

flag table : vector C2 * num_flags + 1, long) initial ( 
num_ flags, 

uplit (Zasc te *DISCTLY'), $bitposition fuatsvdisctty). 
uplit (Zascic ‘DEFCLI") $Sbitposition (uaf$v_defcl 
uplit (Zascic "LOCKPWD'S, $bitposition (uaf$v~lockpwds, 
uplit (Zascic ‘CAPTIVE'), $bitposition (uaf$v_captive), 
uplit (Zascic "DISUSER'), $bitposition (uaf$v_disacnt), 
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3 0 4 1 uplit (Zascic ‘'DISWELCOME'), bitposition (uaf$v_diswelcom), H 
; 1 a. % upLit (Zascic 'DISNEWMAIL'), $B| tbos| ton (uafgurdism f5" : 
; ¢ § 1 uplit (Rascic ‘DISMAIL'), bitposition (uaf$v_nomail), 3 
; 1 uplit (Zascic 'GENPWD') gb) tpos)tjon (uaf$v_genpwd) : 
; 4 8 1 uplit (Xascic "PWD_EXPIRED') p]tpes] t jon (uaf$v_pwd expired) 3 
: 235 1 uplit (Kascic 'PWO2 EXPIRED'S, $bitposition (uaf$v_pwde_expireds, ; 
; $ 0 1 uplit (Zascic ‘AUDIT') $bicposition (uaf$v_audif), $ 
i $37 uplit (Zascic "DISREPORT'), Sbitposition (uaf$vidisreport) : 
: 239 11° ; 
: re : } The definition table for flag bits for UAFSB_PDAYFLAGS and UAFS$B_SDAYFLAGS. : 
: 4g $ 1 opflag_table : vector C2 * num_opflags + 1, long] initial ( ; 
; 24 8 1 num_opf lags : 
3; 244 8 1 uplit (Zascic ‘OISDIALUP') uaf$k_disdialup : 
: hs O339 1 uplit (Zascic "DISNETWORK'S,  uafS$k-disnetwork ! Disneyworld 2? ; 
: 247 0341 1!" ; 
: if Be8 ! } The definition table for flag bits for UAFSB_PRIMEDAYS. : 
: 250 0344 1 dflag_table : vector [2 * num_pdflags + 1, long] initial ( ; 
: 351 oss 1 OO Bes hum pdf lags, _— . 
; 25 0346 1 uplit (Zascic ‘MONDAY') $bitposition (uaf$v_monday) 3 
3 te 1 uplit (ascic "TUESDAY'S, $bitposition (uaf$v~tuesday), 3 
> 254 0348 1 uplit (Zascic ‘WEDNESDAY'), $bitposition (uaf$v_wednesday), : 
; 6255 0349 1 uplit (Zascic ‘'THURSDAY'), $bitposition (uaf$v_thursday), : 
: 256 0 9 1 uplit (Zascic VERIDAY') $bitposition (uaf$v_friday), 3 
: 257 0351 1 uplit (Zascic ‘SATURDAY'), $bitposition (uaf$v_saturday), 3 
; 258 0 26 1 uplit (Zascic ‘SUNDAY'), $bitposition (uaf$v_sunday) 3 
. en 2h | 
: 261 O385 : 
: o¢ B28 1! F 
: 6 B32 1 ! EQUATED SYMBOLS: : 
eS 0359 1 
; $e8 et 1 literal ; 
: 267 61 1 false = 0, ! logical false 3 
: 369 306 ! true = 1, ! logical true : 
: 270 364 1 network_access = 1°0, ! mask representing /NETWORK_ACCESS : 
: 271 O39? 1 batch_atcess = 141, ' mask representing /BATCH_ACCESS 3 
3 ie: r] 1 local_access = Lng ! mask representing /LOCAL ACCESS 3 
: ef $e 1 dialup_access = 1°53, ' mask representing /DIALUP_ACCESS 3 
3 274 oe 1 remote_access = 1%4, ' mask representing /REMOTE ACCESS : 
3; ers 33 1 interactive_access = ! mask representing /INTERACTIVE_ACCESS 3 
3; ar 9 1 local_access or dialup_access or remote_access, : 
3 af 371 1 access_access = ! mask representing /ACCES : 
: A ts \ interactive_access or network_access or batch_access, : 
$ 280 74 «1 byte_length = 8 ! bits per byte ; 
> (281 75 1 word-Length = 16, i bits per word ; 
3 Ht 76 «1 word_unsigned_length : 
; 77 (1 = 17, ' for WS info 3 
: Be 37 ' Long_length = 32, ! bits per longword : 
; 286 80 1 ; 


4 9 
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3 7 , 4 blank s**, delimiters ; 
: Bs § 1 colon e *3*, — : 
3 9 1 comma 3.7% : 
; 290 4 1 cr = 18, ; 
; 291 oe pquels e *e*, 3 
; 95 § 1 L = 10 3 
> 29 1 (paren = ' {*, ; 
> 294 8 1 rparen q %3*, 3 
; 295 1 slash e *s*, : 
; 296 Ss tab .? ¥. F 
3 44 4 ! zero = 0, : 
: 38 38 1 counted_string = 1, ! counted string type indicator ; 
: of 0 Be } filled_string = 2; ! filled string type indicator : 
: 30 96 1 own ; 
; 08 §399 1 status, 3 
: Be baoe } cli_status, : 
: 306 0400 1 tparse_block : block Ctpa$c_lengthO, byte] ; 
: 307 0401 1 preset (Ptpagt counts ‘ tpa$k_count0 3 
3 308 bcos 1 tpa$l_options] = tpa$m_abbrev), 3 
; 309 405 1 converted_uic, 3 
; 310 0404 1 address, 3 
3; «(311 ot 1 left_bit, 3 
3 \ 406 1 right_bit, : 
: 31 0407 1 primary_access : bitvector F333. 3 
> «4314 0408 1 secondary_access: bitvector (32), : 
s 315 0409 1 no_flag : initial (false), : 
: 316 0410 1 primary : initial (false), 3 
. Ha 0411 1 secondary : initial (false); : 
: 319 Oc13 1 
: 320 0414 1 | ASCII numbers from ‘0' through hex 'F' ; 
: 352 a 
; 328 0417 1 bind : 
: 324 418 1 numbers = uplit byte ('0123456789ABCDEF'), 3 
; 526 ae : 3 
; 3 ; r 1 \ ‘NO’ prefix descriptor for negating privileges ; 
: 3 9 4 < no_dsc = $descriptor ("NO") : vector; ; 
: 33 rh 
: 426 1! External messages ; 
3 33 4 $ } : ° 3 
; 335 4 : : external routine ; 
: 3? 1 ' LIBSSIGNAL: addressing_mode(general); 3 
: 33 ° $ ' external literal : 
: 341 435 1 UAF$_BADVALUE, UAF $_EXTRAPARM UAF$_INVDEV ; 
; 43 436 1 S-INVSTR UAF $~ INVUSERSPEC, UAFS"KEYNOTEND, : 
: 34 437 1  UAFS"NAMETOOBIG, UAF $~NOARG, UAF $“NOQUOTE , 
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as 
45 
4 
4 
4 
; 
> 
5 


UAF $_NOUSERSPEC, UAF$_PRVNOTFND, UAF$_PRVNOTUNQ, 
UAF$~PWDSYNTAX, UAF $~PWONCH UAF $~PWDNOL 
UAFS"UICERR, UAF$~VALTOOBIG, UAFS-ZCONFLICT; 


EXTERNAL REFERENCES: 


H 4 1 
| Le 
: 440 1 
3 441 1 
; 8 rk 1 
; 9 4435 1 
: 0 444 1 
; 1 445 1 
: 388 rh 
; 2¢ i ! external Literal 
3 38 $a } encrypt, ! encryption algorithm to use 
; 358 eH 1 Lib$S_ambkey, ' status for ambiguous keyword 
3 3 ott 1 Lib$"unrkey, ! status for unrecognized keyword 
3 361 0455 1 cli$_abkeyw, ! message symbol for ‘‘ambiguous keyword'’ 
: 6¢ Be 38 1 Ch ignivkeye. ' messoge symbol for “‘unrecognized keyword'’ 
; 457 1 gl is_nege ed, ! qua} | ier explicitly negated 
; 364 458 1 CLIS_ABSENT, ! Qualifier not given 
; 365 459 1 prv$_notunq, 
3 $09 Reo : prv$_invnam; 
; 368 page 1 external ! Global storage from UAFMAIN 
: 369 0465 1 uaf$gl_ctlmsk  : block, 
; 370 0464 1 authorize_commands : ogdrens ing_nede ( general ), 
: 371 ree 1 cmdlindsc : block C,byteJ, 
3 HE: a08 1 call_count, 
3 af B28 j symbol _str, ! Symbolic character set 
; «374 468 1 match_fokenlen, 
3 $2 0469 1 match_token, 
: 376 0470 1 tokendsc : block C,bytel, 
: sre 0471 1 tokenlen : word, ! Bound to bt et Hite re sped 
s S78 Bars 1 tokenptr, ' Bound to TOKENDSCLDSCSA_POINTER] 
; 379 473 1 uic. ag ! Wildcard parsing flags 
; 380 bere 1 grp_wild, 
3 Se 475 1 mem_wild, 
3 Hy Bere : str_wild, 
3; 384 478 1 time_buf : block C,byte], ! Buffer to receive current system time 
3; 385 479 1 pwd flag, ! User did not supply password flag 
3 36 ret} : recbuf : block C,byte); ! The current UAF record 
; 388 age 1 | 
: 34 r i : : TPARSE state table to parse /<access> qualifiers 
; 391 485 1 
; . r : Sinit_state (access_states, access_keys); 
3 394 Fr 3 1 $state (, ‘ 
; 395 P 1 (*PRIMARY', terminal, check_primary, true, primary), 
3 96 P 0490 1 ("SECONDARY', terminal, check secondary, true, secondary), 
3 tpa$_decimal,,.,, right_bi 
9 P0491 1 (tpa$_dec imal ht_bit) 
(H  BRy os 
; 400 P 0494 1 $state (, 
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rh a" 136 : (tpas’ tpaS_exit, set ) 
; a$_eos, tpa$_exit, set_range 
BiB WY eae oleae ea 
; 405 p 0699 | Sstate (, 

; rt’ P 289 1 (tpa$_decimal,, set_range) 
Bp 8 ieee 

: 409 P 308 1 $state (terminal, 

: 410 P 4 1 (tpa$_eos, tpa$_exit) 

> 411 505 1 : 

: ai 307 | 

> 414 508 1 | TPARSE state table for old /P_RESTRICT and /S_RESTRICT qualifiers. 
no tha! 

: rit B21) i Sinit_state (restrict_states, restrict_keys); 
: 419 pOstS 1 Sstate <, 

; 420 P0514 1 (tpa$_decimal,,,, right_bit) 

3 c3e 8212 : ); 

i BN log. 

> 425 P0519 1 (tpa$_eos, tpa$_exit, set_range) 
feed UE Rae 

: 428 p Odg¢ 1 Sstate  (. 

; $¢3 P 05 1 (tpa$_decimal,, set_range) 
Ce ae Be) : 

; $38 P 0526 1 $state (, 

; 463 P 0527 1 (tpa$_eos, tpa$_exit) 

: 434 0528 1 3 

BST, 

> 437 0531 1 | TPARSE state table for UIC spec 
BR]! 

; ret base ' Sinit_state (uic_states, uic_keys); 

> 44 P 05 § 1 $state (, 

; 44 P 05 1 (tpa$S_ident, tpa$_exit,,, converted_uic) 
> 444 5 3 1 3 

: ote 810 | 

3 447 541 1°! TPARSE state table for directory string 
ae ae 

; $20 2¢¢ ! Sinit_state (dir_states, dir_keys); 

; 482 P0946 1 Sstate (, 

3; 45 P 0547 1 ( (ufd), end_state), 

: 454 P 0548 1 ( (subdir), end_state), 

: 455 P 0549 1 th oP 

: $28 P 0550 1 c"<"3 

3 «645 551 1 3 
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; 458 g 1 

; 459 P 1 $state 
3; 460 P 4 1 

3; 461 P a 

; 46 § 1 

; 46 1 

; 464 P 8 1 $state 
; 465 P 05 1 

; 46 P 0560 1 

; 46 561 1 

; 468 B26 1 

3; 469 P B20 1 $state 
: 470 P 0564 #1 

3; 471 bee? 1 

; 47 566 1 

» OF p p26! 1 $state 
> 474 P 0568 1 

s 675 0569 1 

; 476 0570 1 

: 477 P 0571 1 $state 
3; 478 P 0378 1 

3; 479 05735 «1 

; 480 bere 1 

; 481 P 0575 1 $state 
; 48 P 8278 1 

; 48 0577 1 

: 484 0578 ~«#1 

; 485 e beep 1 $state 
; 486 P 0580 1 

: 487 0581 1 

; 488 05 ¢ 1 

; 489 P 05 1 $state 
: 490 P 0584 (1 

; 491 P 0585 1 

§ 0586 1 


(end state, 
, {tpaS_eos, tpa$_exit) 


(ufd 
, (tpas_octal., checkvalue) 


{f+ 


(, 
(tpa$_octal, tpa$_exit, checkvalue) 


(subdir, 

, Steed _syabet.. checklength) 
(, . 
(",",subdir), 
, (tpas_lambda, tpas_exit) 
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%sbttl ‘update_record - modify all specified fields’ 
abe nag routine update_record = 


'e4 

! 

i FUNCTIONAL DESCRIPTION: 
Scan the remainder of the user's snput command Line for parameters 
and parameter yolues. Pull off each parameter keyword and check 
that it is valid, then call the associated routine to process 
the supplied value or string. 

INPUTS: 
none 


IMPLICIT INPUTS: 


OUTPUTS: 
none 


1 
! IMPLICIT OUTPUTS: 
i none 
i ROUTINE VALUE: 
i true => all keywords and parameters were specified correctly 
none 
status = false; 
primary = false; 


tt a 8 td ad ad md md IS QOD OOOO OCOOOOOOOOWOOOOMOOED 


=O ODNA NE WIN OOO NAMES WN (OOO NAOUE WN OCONAOUE WI" O0O~n 


SIDE EFFECTS: 


secondary = false; 
no_flag = false; 


i] 
! If this is part of a series of calls from WILD_USER, the command 
! Line must be reparsed after the first call 


v -call_count neq 0 
en 
cli$dcl_parse (cmdlindsc, authorize_commands) ; 


SSSSs OOOCOCGCCOCSCOCOOCOOOOOOOOOOCOOOOOOOOCOoKr. 
=t-4-4-0-4-¢--4 SSSSSSSSSCSSSSSSOSS SSPE SES AAAAA AR AAAI 


if CLISPRESENT(Zascid' GENERATE _PASSWORD') 
stay = | aaa detreanaiace neq CLI$_ABSENT) then 
egin 
LIBSSIGNAL (UAF$_ZCONFLICT); 


end 


UA 
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or .cli- “status eql cli$_negated 
then 


ao 
2 
NO 
s 


$ 1 644 else if CLISPRESENT(Zascid' GENERATE _PASSWORD’) 

: § big or ae ane ee PASSWORD) neq CLT$_ABSENT) then 
; 554 4 

$ 5 rt: if CLISCRESENT thpectd® GENERATE_PASSWORD') then 
; § 4 ENERATE() 

: 23 6 if not t GETPASSUORB ) then 

: 559 6 necourtunrsy PWh_EXPIRED] = FALSE; 

; 560 6 STATUS = TRUE; 

: 561 654 

; 66 655 end; 

; 6 § 

ge g if f$gl_ctlmskCuaf$ ] 

3 .ua _ctlmskCuaf$v_rename 

: 566 B69 5 then ts? 

3; 567 geod return true; 

; 568 661 

; 569 b00¢ ! 

; 570 066 ' Check that we're not at the end of the command Line. Continue 
; 571 0664 ! processing parameters until the end is reached 

3 er6 0665 ! 

ae 0666 

; 574 0667 cli_status = cli$present (sd_access); 

; 575 0668 if Tcli_status 

>; 576 0669 or ett” Status eql cli$_negated 

3 Sir 0670 shen 

; 378 0671 

3 79 067 bes aoe geteccers (sd_access, access_access, .cli_status) 
3 20 067 then return false; 

; «64581 0674 status = true; 

5 oB8 0675 end; 

. oe 067 

3 388 067 cli_status = St epreeens (sd_interactive); 

3 385 067 if Tcli_statu 

; 586 067 or “elie “status eql cli$_negated 

3 aH 0680 then 

; 588 0681 begin 

; 589 06 § if not gotaccess (sd_interactive, interactive_access, .cli_status) 
3 oa 06 then return false; 

3 91 684 status = true; 

: 236 5 end; 

; 59 6 $ 

3 335 6 gti. = = cliSpresent (sd_batch); 

; 38 3 or .cli~ ct eql cli$_negated 

: 59 0 then 

; 598 91 begin 

; 599 9 if not getaccess (sd_batch, batch_access, .cli_status) 
3; 600 9 then return false; 

3; 601 94 status = true; 

3 one 95 end; 

: rt cli_status = cl Tipresent (sd_dialup); 

; 605 9 if Tcli_statu 


5 


ASTERSCUAR® SRCSUAF PARSE. B32; A 5 


=> 
es 
pa 
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; 60 701 egin 

; 60 7 f not getaccess (sd_dialup, dialup_access, .cli_status) 
; 610 7 then return false; 

; 611 7 status = true; 

: els 705 end; 

; $61 7 

; 614 7 Ghiast aryte - ust ieoresent (sd_network); 

; 615 7 3 T 64 

3 $18 7 or Clie “Status eql cli$_negated 

; 61 ey then 

; 618 71 begin 

; 619 ne if not getaccess (sd_network, network_access, .cli_status) 
; 620 71 then return false; 

; 621 714 status = true; 

3; 6 ¢ 715 end; 

3 § ay 

; 624 71 cli_status = cl tSpresent (sd_local); 

3 629 718 Be cli_statu 

3 6 $ 0719 or “eli? “status eql cli$_negated 

3; 6 0720 then 

: 628 37 1 begin 

; 629 7 ¢ if not getaccess (sd_local, local_access, .cli_status) 
: 650 07 then return false; 

; 631 0724 status = true; 

: O36 0725 end; 

3; 6 07 § 

; 6 07 cli.status = cli$present (sd_remote); 

; 635 0728 if Tcli_status 

; 636 0729 or .cli_ “Stetus eql cli$_negated 

. Gay 0730 then 

: O38 0731 begin 

; 639 07 § if? not wg (sd_remote, remote_access, .cli_status) 
; 640 07 then return fal 

3; 641 0734 status = true; 

3 ak a 5 end; 

; 64 7 $ 

: 644 8) oc St tepresent (sd_account) 

; 645 738 

3 666 158 begin 

3 647 740 ee’ Sget. value (sd sbccqunt, ees tet 

; 648 0741 '® f fot gerstry ng (recbufCuaf$t_account], uaf$s_account, filled_string) 
; 649 Bree = not gets orre (recbufCuaf$t_account), 8, filled_string) 
s 650 74 then return false; 

3 $3) 744 status = true; 

3; 6 § 745 end; 

: 65 bg 

3; 654 74 if cli$present (sd_astim) 

; 655 be | then 

§ $26 74 begin 

3 63 P30 cli$get_value (sd zpstin. tokendsc 

; 658 751 if not getval (retbufluaf$w wane word_length) 

; 659 236 then return false; 

: 660 75 status = true; 

3; 661 754 end; 

: O96 755 

; 66 ? § if cli$present (sd_biolm) 

3; 664 7 then 
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er faget value (sd_biolm, tokendsc Ci: 

not getval (recbuf uaf$w “blots . word _length) 
ifn return false; 

status = true; 


end; 
2 cli$present (sd_bytim) 


et Yager. value (sd zbytin. tokendsc) 

f not getval (recbuf uaf$l “bytimd, Long_ length) 
then return false; 

status = true; 

end; 


4 

5 

5 

; 

0 

1 

§ if cliS$present (sd_cli) 
5 then 
$ 

8 

9 

0 

1 

é 

4 

5 


i ilose value (sd_cli, tokendsc); 
not petstring t Trecbuftuatst. _defclil, uaf$s_defcli, counted_string) 
then return 
uafS9l. ctlmsk ue fav itch. pres) = 
vector Tt 


recbufLuaf$t_clitables], 0; ,byte] neq 0); 
uaf$gl_ctlmsk 


uaf$v_cli] ="true; 


19 C909 09 SI NINN SNIP PPO 


status = true; 
end; 


7s cli$present (sd_clitables) 


1 a value (sd_clitables, tokendsc) 
f not Getstring. TrecbufCuafst ve litablesd, uaf$s_clitables, counted_string) 
then return 5 
uaf$gl_ctlmsk uafév. clitables) = true; 
status"= true; 
end; 


woooowowow 
UPW—O0W 


Ss 


7 ¢ cli$present (sd_cputime) 


SNS 


33 


Oreicet. 4 tow (sd_cputime, tokendsc); 
not getcputim 7) 

then re whe "Tolse:s 

status = true; 

end; 


SESS 


a ce (sd_defprivileges) 


SRA 


peo ae geteriv ts ry _defprivileges, recbufCuaf$q_def_priv]) 
then return fal 

status = true; 

end; 


if cli$present (sd_device) 
then 


Sse 


—— 
eur 
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er faget vevee (sd_device, tokendsc); 
not getdevice T) 
ifn return false; 
status = true; 
end; 
7S cliSpresent (sd_diolm) 
er faget. value (sd cfioin. tokendsc 
4 
3 
é 
4 


f not getval fr ireceu uafSw Kofotnd: word_length) 
then ret urn fal 

status = true; 

end; 


2 cli$present (sd_directory) 


et Yaget_ value (sd_directory, tokendsc); 
f not petdirestory Q) 

an return false; 

status = true; 

end; 


7S cliSpresent (sd_enqlm) 


bresoet. value (sd_en - tokendsc); 
if not getval (recbu 

then return false; 

status = true; 

end; 


uaf$w “engin. word_Length) 


cli_status = cli$present (sd saptretten) : 
if Tcli_status eql cli$_negated 
en 


status = true : 
end 

else 
if .cli status 
then 


44 ae value (sd_expiration, tokendsc) 


“begin 
signal (.status); 
return false; 
end; 

status = true; 

end; 


if cli$present (sd_fillm 
then 


at DT (0, uaf$s expiration, recbufCuaf$q_expiration] ) ; 


ifn not (status = TibScvt_time {tohenesc, recbufCuaf$q_expiration])) 


V4.0-74 P 4 
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Us 


i—~ 
3 
—~ 
evr 


75 ifn return false; 
7 status = true; 
7 end; 


1s mien (sd_flags) 


CoCo CG 
~ 


peo a gett legs () 
then return false; 
status = true; 
end; 


WANN 
(2:00000000 
So Norn wr 
~“ 


333 


7s cli$present (sd_jtquota) 


14) value (sd = qyote tokendsc); 

if not getval (recbufluaf$l _jtquotal. lLong_ length) 
then return false; 

status = true; 


end; 


MEW OOO NOULS WIN Oo 


th cli$present (sd_lgicmd) 


eT iset. value (sd_lgicmd, tokendsc 

not getstring Trecbuftuaf$t ge uaf$s_lgicmd, counted_string) 
then return false; 
status = true; 
end; 


~ 
Oo 
DOOCOOCOCOOCOOOOOOOCoOOoO 


809 


3328 


7S cliSpresent (sd_maxjobs) 


$333 


33 


i ieee value (sd_maxjobs, tokendsc); 

if not Setval (recbufluaf$w “eaxjobs). word_length) 
then return false; 

status = true; 

end; 


a os 


DONO UE WN OOONOUEWN Oo 


So 


oooononovond 


awn — 
IIIIIORININD 2 2 2 aoe 


if cli$present (sd_maxacctjobs) 
then 


begin 
cl Sget value (sd_max Set jets. tokendsc); 
f not getval (recbufluafSw _maxacctjobs), word_length) 
then return false; 
status = true; 


end; 
7s cli$present (sd_maxdetach) 


Be Se Se Se Ge Se Se Se Ge Se Be Se Se Se Se Se Ge Se Ge Ge Fe Fe Se Fe Se Ge Ge ee Se Se Se Ge Gee Ge Gee Se SF Se Se Se Se Se Se Se Se Se Se Se Se Se eseeess tee 
co 
oO 
~ 
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BINAUNES WN OO OONOULS WO 


et ager value (sd_maxdetach, tokendsc 
Getval (recbufluaf$w  eedeanenl word length) 
ifn return false; 
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0 7 f faget value (sd_fillm, tokendsc ce 
7 not fetval (recbut uaf$w_ filtm word_length) 
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Sep-1 6 UA 
: TER: CUAF. OFAC SUAF PARSE. B32; il FS ve 


VOe- 000" update_record = modify all specified fields rb3e Haat hi 98: $1; 3 


status = true; 
end; 


—>»> 


nx 
om | 


o=<= 
a— 
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COGS 


aS cliSpresent (sd_owner) 


FP et ee 
"oO 


er faget. value (sd_owner, tokendsc 

not getstring TrecbufCuaf$t phi uafSs_owner, counted_string) 
ifn return false; 

status = true; 

end; 


ro cli$present (sd_pbytim) 


PEE 


+ 
MEAN $9 ODNOAUL WIN OO ONOAUNE WO OONOULS WIN —OO 


bresoet. value (sd_ mF tokendsc); 

if not petval rer ufCuaf$t _pbytlm), Long_length) 
then return 

status = he, 

end; 


(09 50 09 CS C9 09 Or 09 09 CD CD 09 09 CD OD CD: 
PUPPIES 
DONAULS WN“ OVDONOUS 


‘7s cli$present (sd_pgflquota) 


3 3 


14 ae value (sd cbottquete. tokendsc); 

if not petval ree ufCuaf$l_pgflquota), 3 * byte_length) 
then return fal 

status = true; 

end; 


CD: 
ttattn 
Mwr 
NNN NN NNN ANS & Do 9 $999 9 AAA Ad 


Coooooo 
SPROOD 


OGOOoOoooooooocoo 


PAPAIN 


7 ae (sd_p_restrict) 


32 3 


beg nF gotregtyves (sd_p_restrict) 
then return false; 

status = true; 

end; 


23 


J cli$present (sd_s_restrict) 


“begin 
secondary = tru 
f not vereatrict (sd_s_restrict) 


i 
then return false; 


SSN NNO 

MEW —OOONOULSWN OO 
oowono 
SINNOO 


DONOUS WHI —OOW 


status = true; 
end; 


ooovono 


if cli$present (sd_pflags) 
then 


begin 

1 ne not. otptter s (sd_pflags) 
then vg oe fs 
status = true; 

end; 


if cli$present (sd_sflags) 


<3 Oo 
SANs 


Uw —o 
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93 9 then 
94 9 $ beg! 
95 9 8 f not gett ags (sd_sflags) 
39 9 then return false; 
9 9 status = true; 
98 99 end; 
899 838 
9 99 if cliSpresent (sd_prcim) 
901 994 then 
90 995 begin 
90 99 §} $get_value (sd_prcilm, tokendsc) 
Bee 99 f not petval ¢ (retbufCuaf$w “preentd, word_length) 
5 99 then rot urn false; 
906 99 status = true; 
rit 1000 end; 
909 if Mawes (sd_primedays) 
910 then 


bes bel peter inpeeye 0) 
then return false; 
status = true; 

end; 


8 cli$present (sd_priority) 


1) ae value (sd cpriority. tokendsc) 

if not getval (recbufCuafSb_pril, byte. Length) 
then return false; 

status = true; 

end; 


28 antag: (sd_privileges) 


RMN 2 3 3 3 3 3 SS SOOO OOOO 


MOOD NOUN FWD OOO NAN EWN — O OONAUE WN $0 OONOUES Wh 


bea mal geteriy ts (sd privileges, recbufCuaf$q_priv]) 
then return false; 

status = true; 

end; 


Cul optanys = CLISPRESENT(Zasci 
if [CLI_LSTATUS eql CLIS_NEGATE 


a iF 


UN —O VONOUS WN “OO ONOULS WR 


WWW IORI RINONONINOPUN 2 2 3 SS 


sc6 te WOERPIRED® ); 


COOOCCOCOCOCSCOOOCOCOCOOCOCOOCOOOOOCOOOOOOOCOO 


SEGRE 


DWDOODODOOOOOOOOOOOOODOODOODOODODODOOOONO 


HAA A AAAI PONPONPINONONNPY 


me ee ed ed ed od 8d 4 8 8 ed 4 4 2 2 2 


38 TIRE = k Pou EDR $0. Pub DATE: 
940 ae cour CUA sy PwD oe = FALSE; 
341 STATUS = TRUE; 

en 
348 else if .CLI_STATUS then 
94 begin 
945 local TIME Len Hi 
946 TIME = RECBUF yu iso grt? sated: 
94 TIME = . Zveys : 
948 REC ieee cuariv. bub EXPIRE = FALSE; 
949 STATUS = TRUE; 
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; 950 is end; 
£32) 1048 i_stat Lis t (sd_pwdlifetime) 
3 Status = ¢ resent (sd_pw etime) ; 
3 338 1 “g ~cli_status eql cliS. negated 
; 954 104 then 
: 38 : a3 at He t$s_pwd_Lifeti bufCuat$q_pwd_lifetime) ) 
: C , uaf$s_pw etime, recbufCua Ww etime 3 
; 989 105 REcour CUAFSY_PUD ERP SED) = FALSE; re 
; 958 132) status = true ; 
; 959 1 26 end 
: 960 105 else 
; 961 1 ze if .cli_status 
3 808 1055 then 
; 96 1 28 begin 
3: 964 105 cli$get_value (sd_pwdlifetime, tokendsc); 
; 965 1058 if c SoUtl. okonesct decoy Length], .tokendscCdsc$a_pointer], 
: 966 1059 4, uplit(%ascii'NONE') ) then 
; 967 1060 4 begin : 
; 968 1061 4 ch$fill(O, uaf$s_pwd_lifetime, recbufCuaf$q_pwd_lifetime] ); 
3; 969 1996 4 status = true; 
3; 970 1063 4 end 
3; «971 1064 3 else 
; 97 1065 4 if not (status = LibScvt_dtime (tokendsc, recbufluaf$q_pwd_lifetime])) 
: 97 1066 3 then 
3; 974 1067 4 begin 
; 975 1068 4 signal (.status); 
; 976 1069 4 return false; 
3; orr 1070 end; 
: 978 1071 RECBUF CUAF$V_PWD_EXPIRED] = FALSE; 
; 979 1076 status = true; 
; 980 107 end; 
: 981 1074 
; 98 1075 if cli$present (sd_pwdminimum) 
; 98 1976 then 
3; 6984 107 begin 
; 985 1078 cli$get_value (sd_pwdminimum, tokendsc); 
; 986 1079 if not getval (recbufCuaf$b_pwd_length], byte_length) 
; 987 1080 then return false; 
; 988 1081 status = true; 
3 4 1936 end; 
; 991 SB if cliS$present (sd_quepriority) 
3 338 1085 then 
: 99 13 § begin 
; «994 1 cli$get_value {sd_.queprior ity. tokendsc); 
; 995 1088 if not getval (recbufluaf$b_quepril], byte_length) 
; 4" 1089 then return false; 
; 99 1090 status = true; 
; 998 1091 end; 
; .999 1 6 
: 1000 109 if cli$present (sd_shrfillm) 
3 19) 1094 then 
s § 1095 begin 
: IO? 1 38 st $get_value (sd_shrfillm, tokendsc); 
s 7 1 f not getval (recbufluafSw_shrfillm), word_length) 
3 1923 1 38 then return false; 
3 1 1 status = true; 


4 10 
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end; 


y ofS Htoresent (sd_tqelm) 


OOOo 


Wino 


eager. value (sd ef aeim. tokendsc 
etval (retbufluaf$w mts word_length) 
ifn return false; 
status = true; 
end; 


i oi h eoresent (sd_uic) 


+ ee value (sd_uic, tokendsc); 
not getuic () 

then return false; 

status = true; 

end; 


M4 ti Meresent (sd_wsdefault) 


et feget_ value (sd_wsdefault, tokendsc) 
f not Rurnefale (recbufluatsl _dfwscentd, word unsigned_length) 


pe ee ee wee fe lolololelelelolelelelolelolo) 


SSSSs 
WA AAI AAP POPEDIPININPUNINID 2 OS SO OS SS | OO 


then return 
(recbufCuaf$l “a teicata<t6, 16> = 0; !** temp until longword is supported 
5 status = true; 
03 
be ‘y af \ttoresent (sd_wsextent) 
03 


Orlicet. value (sd_wsextent, tokendsc); 
i not getval (recbufCuaf$l _wsextentJ, word_unsigned_length) 
then re urn false 
(recbufCuaf$t eusextent])<16, 16> = 0; !** temp until longword is supported 
etatus = true; 
end; 


‘9 of! ttoresent (sd_wsquota) 


SCONAOUE WN OC ODNAV EWN SO ODDNOUS WN (OODNOU SWI —O0O-) 


et faget_ value (sd_wsquota, tokendsc); 
it not getval Bi uaf$l _wsquotal, word_unsigned_length) 
en return 
(recbufCuaf$l eysquota))<16, 16> = 0; !** temp until longword is supported 
ayes = true; 
end; 


‘" -uaf$gl_ctlmskCuaf$v_copy] or .uaf$gl_ctlmskCuaf$v_add) 
hen 
return true; 


RARARAARAR EERE RRR EE 


ES 
COONOUS Wr — 


me ee ee ee a ek mm ek kd a td td 8 8 8 8 a a 
et a a a a aa kk kd a ed ad a a at 2 8 0 8 2 2 2 Ss 2 2 a 2 ss 8 
cc ee ce ee me ee me et em ee ee ee ee ee ee ed ed ed od ed wd wd dd dd dd ed 
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return .status; 
end; 
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ITLE UAFPAR 
DENT Wv04-000\ 


-PSECT _LIBSKEYI$,NOWRT, SHR, PIC,1 


Use: -BLK 0 
59 52 41 4D 49 52 50 00000 ;TPASKEYST 
U.4: +ASCII \PRIMARY\ : 
FF add .BYTE 1 : 
BETTS 0 
59 52 41 44 4E 4F 43 45 53 00008 ;TPASKEYST 
U.13: ASCII \SECONDARY\ 3 
FF 00011 BYTE -1 : 
FF 00012 ; TPASKEYFILL 
U.21: .BYTE -1 3 


-PSECT _LIBSSTATES,NOWRT, SHR, PIC,1 
00000 ACCESS_STATES:: 


‘ 0 
F100 00000 ; TPASTYPE 
253 WOR -3840 é 
00000000V 00002 ; TPASACTION 
U.6: N <<CHECK_PRIMARY=U.6>=4> 3 
00000000* 00006 ; TPASADDR 
00000001 O000A ; TPASMASK 
U.8: «LONG 1 : 
0000* QOOOE ; TPASTARGET 
U.10: eWORD <<U.9-U.10>-2> 3 
F101 00010 ; TPASTYPE 
U.14: -WORD -3839 3 
00000000V 00012 ; TPASACTION 
U.15 «LONG <<CHECK_SECONDARY-U.15>-4> : 
00000000* 00016 ; TPASADDR 
U.16: eLONG <<SECONDARY-U.16>-4> : 
00000001 OQOO01A ; TPASMASK 
U.17 -LONG 1 : 
0000* OOOTE ; TPASTARGET 
U.18: eWORD <<U.9-U.18>-2> 3 
45F3 00020 ; TPASTYPE 
U.19: -WORD 17907 3 
00000000* 00022 ; TPASADDR 
U.20: -LONG <<RIGHT_BIT-U.20>-4> : 
002D 00026 ; TPASTYPE 
U.22 -WORD 45 3 
95F7 00028 ; TPASTYPE 
U.23: «WORD -27145 3 
00000000V 0002A ; TPASACTION 
U.24: ok <<SET_RANGE-U.24>-4> 3 
FFFF QOO2E ; TPASTARGET 
U.25: -WORD -=1 3 
85F3 00030 ; TPASTYPE 
U.26: «WORD -31245 3 


update_record = modify all specified fields 


00000000v 


15F7 
FFFF 


45F3 
00000000* 
0020 
95F7 
00000000Vv 
FFFF 
85F3 
00000000v 
15F7 
FFFF 


55EC 
00000000* 
FFFF 


19F8 
0000+ 
0000+ 
19F8 
0000+ 
0000* 
0058 
043¢ 


iSodeo-19Re 98:31:19 ya 


00032 CAE 
00036 ; Yipee 
00036  TPASTYPE 


U.28: WORD 
00038 siBAStaRGET 
0.29: WORD 


0 
$003¢ 
0003¢ 
wen i 
00042 
00044 » 
U.34: WORD 
00046 ; TPASACTION 
U.35: BK 
OO04A ; TPASTARGET 
0004C¢ 
0004E 
00052 
00054 


0005 
0005 


00058 
0005A 
0005€ 
00060 
00060 
00062 
00064 
00066 
00068 
0006A 
0006C 
0006E 


; TRASTYPE 
0.31: WORD 


E 
«WORD 
ACTION 


TYPE 


on 
= 
~< 


wv 


3 
Pp 
3 
Pp 
3 
P 


ye ornro 
“+ 
> 
» 
Gare 
m 
~ 


U 
0 
U 
0.3 
3 TP 
U.40: .WORD 
-BLKB 
UIC_STATES:: 

s TPASTYPE 
U.42: 
; TPASADDR 


X-11 8 tie 
KSVMGR 
<<SET_RANGE*U.27>-4> 
0 

5623 

-1 


-BLKB. 2 
RESTRICT. =p ALEStE 


17907 
<<RIGHT_BIT=U.32>-4> 
45 

-27145 
<<SET_RANGE-U.35>-4> 
-1 

-31245 
<<SET_RANGE-U.38>-4> 
5623 

-1 


<<CONVERTED_UIC-U.43>=4> 
-1 

0 

6648 

<<U.47-U.48>-2> 
<<U.49-U.50>-2> 

6648 

<<U.52-U.53>-2> 
<<U.49-U.54>=2> 

91 


TER: UAE she UAF PARSE. B32: rs 


update_record - modify all specified fields 


O9F8 
0000+ 
ODF8 
0000+ 
0C5D 
043E 


15F7 
FFFF 


85F4 
00000000v 
042C 
95F4 
00000000v 
FFFF 


85F1 
00000000Vv 
102E 
0000+ 
15F6 
FFFF 


0000+ 
0000+ 


00070 
00072 
00074 
00076 
00078 
0007A 
0007¢ 
0007¢ 
0007E 
00080 
00080 
00082 


0008A 
0008E 
00090 
00090 
00092 
00096 


00098 ; 
OO09A ; 


0009C 


00000 
00000 
00000 
00002 


i 


11 
$ 


.WORD 


; TPASTARGET 

0.76:  .WORD 
.PSECT 

ACCESS_KEYS:: 

; TPASKEYO 

0.1: | .BLKB 

; TPASKEY 

6.3: .WORD 

; TPASKEY 


w$ep-1986 18:81:28 DiSksvm 


1084 
2552 


<<U.47°U.58>-2> 


3576 


<<U.52°U.60>-2> 


93 
1086 

0 

5623 
-1 

0 
-31244 


<<CHECKVALUE-U.66>-4> 


1068 
-27148 


<<CHECKVALUE=U.69>=4> 


1 
0 
-31247 


<<CHECKLENGTH=-U. 72>-4> 


4142 


<<U.52-U.74>-2> 


5622 
-1 


-LIBSKEYOS,NOWRT, 


0 
0 
<U.2°U.1> 


oe - oerenrene 


v0é 


dD 11 
UAF PARSE 16-Sep-1984 02:21: VAX-11 Bliss-32 V4.0-74 Page 23 UA 
¥O4~008 update_record - modify all specified fields 13-88-1382 96:54:33 DTAKSVMGHASTERSCUAE SRCSUAFPARSE 832047 3 VO: 
U.12: » WORD <U.11-U.1> é 
00004 RESTRICT KEYS: , 
00004 ; TPASKEYO 
U.30: -—BLKB 0 
00004 VIN ACTE) 0 
00004 ; TPASKEYO 
0.41:  .BLKB 0 
00004 DIRKEVS:: ; 
00004 ; TPASKEYO 
U.45: -BLKB 0 
.PSECT $PLITS,NOWRT,NOEXE,2 
31 6€ 65 6B 6F 7% sane P.AAB: ASCII \tokent\ ; 
Bo000000" oo00e AM’ rie P.AAB 
32 6€ 65 6B 6F " 0016 P.AAD: ASCII \token2\ : 
Snes HI Pcs ABE yy : 
74 66 75 6F 63 3 61 90 6 P.AAF: ASCII \account\ F 
SER, BSP PME: AIR oP : 
6D 6C 7% % 61 900 6 P.AAH: ASCII \astLm\ : 
90000005 0038 P.AAG: .LONG : 
0090009" 003¢ “ADDRESS P.AAH : 
6D 6C 6F 69 6 90040 P.AAJ -ASCII \biolm\ : 
SS98885. HEBER PAA Ne pcan 2 
6D 6C 74 79 62 9050 P.AAL “ASCII \byt Lm\ : 
SHER. SH Paes ER 3 
69 6C 3 086 P.AAN: ASCII \eli\ : 
900000 3 ite P.AAM: .LONG 3 : 
09900 9° 99 “ADDRESS P.AAN : 
65 6D 69 74 75 6 g P. AAP: ASCII \cput ime\ : 
909 9007 74 P.AAO: .LONG 7 : 
0000000° 00078 “ADDRESS P.AAP : 
65 63 69 76 65 64 7C P.AAR: ASCII \device\ : 
20888 6 P.AAQ: .LONG : 
0000' “ADDRESS P.AAR : 
6D 6C 6F 69 64 P.AAT: -ASCII \diolm\ ; 
900 999 P.AAS: .LONG : : 
* 00098 “ADDRESS P.AAT ; 
79 72 6F 74 63 65 72 69 6 9C P.AAV: ASCII \directory\ ; 


UA PARSE 
v04-00 


61 


74 63 


73 «65 


64 


74 


69 


67 


73 


6F 


65 


62 


6F 


6D 


73 


75 


74 


69 


6C 


72 


69 


6c 


6C 


update_record - modify all specified fields 


geal 


> oouM "ON FOS Ou Gow Cou 


ooo ooo 


ope 
sp 
tio 
Baia} 

SEH 


OOQOQCQoQoQoooooooooooooooooooooo 


SGQOOGOoOooooooooooooooooooooooo 


Sep- 
1f-te ~Sep- 


COOOCOOCOOOOOOOooOSooO 


CoOoQooooooocoeo 
OoOoCooocoo 


RAER ERE ereeen VIVWOOoom 
DBAOOM DOM BUS OBVNOOWOo-r 


ee a a ee a ee ee a el a a ae a ee a el ee ae a ec ed ed ced ed ed 
om 


ae we we we fw fan lw wala lo lo lo lo lo leo lololololololelolololololo) 


iB P.AAU: 
BO P.AAX: 
BS P.AAW: 
CO P.AAZ: 
C8 P.AAY: 
DQ P.ABB: 
D8 P.ABA: 
P.ABD: 
P.ABC: 
P.ABF : 
P.ABE: 
P.ABH: 
P.ABG: 


P.ABJ: 
P.ABI: 


1986 98:31: ; DISKSUMSMA 


PS 
“ADDRESS . AAY 


‘te Lm\ 
a 


NG 
ADDR ESS P.ABB 

ASCII \igicmd\ 
‘BLKB 
LONG 
ADDRESS P.ABD 
ASCII \maxjobs\ 
“BLKB 1 
«LONG 7 
“ADDRESS P.ABF 
«ASCII \owner\ 
LONG 
«ADDRESS P.ABH 
ASCII \password\ 
ADDRESS P.ABJ 
ASCII ypbytlm\ 


LONG ‘. 
"ADDRESS P 

ASCII \pitegs\ 
-—BLKB 2 


- LONG *, 
eADDRESS P.ABN 
1% \pgf Lquota\ 


~ LONG 
“ADDRESS P 
ony \p_. meee 
- LONG 0 
ADDRESS P.ABR 
ASCII \prelm\ 
-BLKB 
- LONG 
mer P.ABT 
ASCII \priority\ 
SLONG 
ADDRESS P.ABV 
“ASCII \privileges\ 


- LONG 0 
-ADDRESS P.ABX 


s-32 V 
TER: UAE she UAF PARSE. 832: 79 


°§ 


UAI 
v0« 


update_record - modify all specified fields 


69 


6D 


6C 


74 


79 


6A 


63 


65 


ish 19:81:23 


Se ee eee eee loleleloloelololololololo! 


st \sflags\ 


P.ABZ 
ASCII \s_restrict\ 


«LONG 

«ADDRESS P.ACF 
ASCII \uic\ 

-BLKB 1 

- LONG ‘, 

-ADDRESS 

‘BLS \wedefault\ 


LONG 
ADDRESS P.ACJ 
eASCII \wsextent\ 


LONG 
»ADDRESS P.ACL 
e ry ponent 


«LONG 

«ADDRESS P.ACN 
ASCII \display\ 

-BLKB 1 


ONG / 
"ADDRESS. P ACP 
ASCII \primedays\ 
LKB 3 


“BLK NG é 
ADDRESS ACR 
“BLKB vnaxacctjobs\ 


ONG % 
"ADDRESS. P ACT 
tt \maxdetach\ 


art: 
DDRESS 
SCI] velitebles\ 
Bike 


LONG 

ADDRESS P.ACX 
ASCII \jtquota\ 
-BLKB 1 

-LONG 7 
ADDRESS P.ACZ 
ASCII \access\ 


VAX-11 Bliss-32 V4.0-7 
DISKSVMSMASTER: cua src UAF PARSE. B32" 


UAF PARSE 
V04~000 


73 «65 


ah 
00 00 44 45 


update_record - modify 


67 


65 


65 


79 


Mies 
wow 


65 


6E 


76 


6D 


6D 


eh 


6C 


6F 


69 


69 


75 


69 


oe 
~F 


69 


69 


74 


74 


6D 


72 


76 


63 


69 


6F 


Pe we Pot ala) ot 


MEF ONOUENOO 


69 


DENNEN 


RIN—VIVIWNOOO & 


68 


72 


75 


72 


72 


6C 


6F 


69 


69 


72 


~N 
= 


ATS NINE EE 


MMOUM WIS Duw 


63 


70 


6C 


69 


65 


61 


77 


6C 


6D 


all specified fields 


78) oe 
8% 
88 


“oo 
oo 
Oo 

oo 


oon mow ©o@Wm voor 


DINE SELLS LES 
NNUOOOO- "0 


Qankaokorore 


i 


-Sep-1 
~Sep-1 


vuvuvVvVvUUUNU 
eeeeveeee 

>>>>>>>>>> 
MmMmMmMmmmMmmnmmno 
—ZQa"*noowWrm~ 


Page 96 


382 98: $1 33 Dts KSVMGMA STERsCUAF SR SRC UAFPARSE.B32;1 = ( 


yl ae oy 
ty batch\ 


«LONG 

eADDRESS P.ADD 

ASCII acierietloesst 
LK8 
LONG 3 
ADDRESS P.ADF 
tt \dialup\ 


«LONG 
ADDRESS P.ADH 
ASCII \expiration\ 
-BLKB 
«LONG - 
ty) hae 
opty Ninteractive\ 


“PONG 11 

ADDRESS P.ADL 

«ASCII \local\ 
LKB 


LONG 
«ADDRESS P.ADN 
rey * speinpceade: 


-LONG 7 

eADDRESS P.ADP 

eASCII \pwdlifetime\ 
-BLKB " 


he A 


LONG 
ADDRESS P 
ASCII 

LONG . 

ADDRESS P 

ASCII \auepriority\ 

«LONG 11 

“ADDRESS P.ADV 

“ASCII \remote\ 

-BLKB 


-LONG 
eADDRESS P.A 
I] <7? 


<11>\Pwd_E 
<12>\PwDd2 


>>>>>>>>>r > 
Pe Oa ta bas te Band a 8 Pe bes 
A 
_ 
v 


UAI 


H 11 

UAF PARSE 16-Sep-1984 02:21: VAX-11 Bliss-32 V4.0-74 P 7 
V06~000 update_record - modify all specified fields 1 7300-1382 99:54:33 DLSKSVMGMASTERSCUAF  SRCSUAFPARSE.B32-1°° 33 

00 54 4 55 41 D8 P.AEJ: .ASCII <5>\AUDIT\<0><0> : 

00 00 4 5 4F 98 45 3 23 44 3 D8 P-AEK: ASCII <92\DISREPORT\ <>< > : 

00 9 46 4j 49 4 49 44 09 EC P-AEL: .ASCII <9>\DISDIALUP\<0><0> : 

00 48 af OS 24 4 4F 49 44 OA FR P.AEM: .ASCII <10>\DISNETWORK\<O> : 

99 9 41 & af 4F 4D $ 404 P.AEN: .ASCII <6>\MONDAY\<0> : 

4 44 53 4 35 4 4 ¢ P.AEO: .ASCII <7>\TUESDAY\ : 

00 00 59 41 && 5 43 4g 44 45 57 3 414 P.AEP: ASCII <9>\WEDNESDAY\<0><0> : 

00 00 00 59 41 44 53 52 55 48 54 420 P.AEQ: ASCII] <8>\THURSDAY\<0><0><0> : 

00 59 41 44 49 52 4% 6 42C P.AER: .ASCII <6>\FRIDAY\<0> : 

oom eH oe 8 EERE cH) Pune : 

45 44 43 42 41 39 38 99 3 35 34 3 33 1 39 cag P.AEU: ASCII \0123456789ABCDEF\ : 

4F 4E rk P.AEW: ASCII \NO\ : 

43h ‘BLKB 

00 9000 45C P.AEV: LONG ; 

0000" 004 “ADDRESS P.AEW : 

4F 57 53 53 41 SO SF 45 54 41 52 45 ; 43 é 4 P.AEY: ASCII \GENERATE_PASSWORD\<0><0><0> : 

10 0034 re} P.AEX: .LONG 17694737 : 

00 0009" 047 “ADDRESS P.AEY : 

4F 57 53 53 41 SO SF 45 54 41 52 4s ; 43 4 04 ' P.AFA: -ASCII \GENERATE_PASSWORD\<0><0><0> : 

01 o0%4 0494 P.AEZ: .LONG 17694737 ; 

0 £0009 0498 “ADDRESS P.AFA : 

4F 57 53 53 41 SO SF 45 54 41 52 4s ; 43 4 949¢ P.AFC: :ASCII \GENERATE_PASSWORD\<0><0><0> : 

010 0074 8480 P.AFB: .LONG 17694737 : 

0960000 4B4 “ADDRESS P.AFC : 

00 00 44 45 52 49 50 58 45 46 Be 0080 0488 p-ArE ASCII \PUDEXPIRED\<0><0> : 

§5080000" Qodcs " TADDRESS P.AFE : 

45 GE 4F GE OO4CC P.AFF: ASCII  \NONE\ : 


.PSECT $OWNS,NOEXE,2 
00000 FLAG_TABLE: 
LONG 
ADDRESS P.ADY 
ADDRESS P.ADZ 
“ADDRESS P.AEA 
ADDRESS P.AEB 
ADDRESS P.AEC 
“ADDRESS P.AED 
LONG 
“ADDRESS P.AEE 
LONG 
“ADDRESS P.AEF 
LONG 
“ADDRESS P.AEG 
“LONG 
“ADDRESS P.AEH 


wn —- Oo fF 
o 


Ss Ow 


- 
Pee Se Se Se Se Se Ge Se Se Se Ge Ge Se Ge Se Se Se Se Se 


UAF PARSE 1b-5 S$ep-1984 1: VAX-11 Bliss-32 V 

v04 update_record - modify all specified fields 1 sett 98: 34 38 DISK $VmSM MASTER: cu hE OSRCSUAF PARSE. B32; A 3 
' 4 [ADDRESS P.AEI : : 
“ADDRESS P.AEK F ; 
eLONG 12 ; ; 
3e OPFLAG_ TABLE : : 
- LON 4 3 : 
' r “ADDRESS P.AEL : : 
«LONG 1 : : 
' “ADDRESS P.AEM : : 
rc ~LON 2 : $ 
E PDFLAG TABLE: ‘a ; 
00000' 0 "ADDRESS P.AEN : : 
. -LONG 0 : 3 
0 O" 0 “ADDRESS P. AEO : : 
000000" 35 -ADDRESS P. AEP : : 
099 ' 03 “ADDRESS P.AEQ : : 
0 OOA ny 3 : 3 
00 00 ' OOM, [ADDRESS P.AER : : 
00 0 0 "LONG 4 ; ; 
90000 ' OA “ADDRESS, P. AES : : 
§009008 900B8 th 6 ; 
00BC STATUS: “BLKB 4 : : 
00CO C sei ‘ : 
00000002 00000008 000c4 1Paase -sidtk: er 3 
occ “BLKB 28 . : 
Mit CONVERTED buic: : 2 
000€ ADDRESS “BLKB 4 : 
QO0OF : - : 
000F4 arent BIT: ; 
.BLKB 4 : 
OOOF8 PRIMARY -ACCESS: , ; 
QOOFC SECONDARY iatee Ss ; 
mes mente | i A 
PRIMARY: “LONG : 3 
SECONDARY: ‘ : : 
a ate P.AAA ; 
SD ~TOKEN2= P- AAC : 
SD"ACCOUNT= P| AAE : 
SD" ASTLM= P- AAG : 
S0~BIOLM= P-AAI F 
SD~BYTLM= P_AAK : 


UAF PARSE 
vO6-008 


update_record = modify all specified fields 


www ewe 


ZZYNYWMNMNMUMWVMNVWMMWMMUVMUHHWNUMNNMNUHUNHUMNYUNHHHYUNNHHHNYUNHHNHYNNOW 


a Www VY WK‘ YY 


VAX=1 


1 
DISKS$V 


7 
Ke Qmna 


Sooooooooaae 


>>>>rrrrrrr>r 
DO BA-OAMOY<CCKHVOOBA-AMOPr<EeCvoo 


VVVVVVUVVUVVUVVUVUVUVVVUVVVVVVVUVVVUVUVVVVUVVUVUUUUU 
VOVIVIIO FGF VOMOOAAAAAOMAAANM 


>>>r>rrrrrrrrrr>r 


>> 
moolT7 
<cecum 


iss-32 V 
maat ER: Uae? SRC 


P.AEV 
RATE_PASSWORDS 


ASSIGN, SYSSDASSGN 
SGET_VM 


RSE 
CLISOCL PARSE 


KEY, 
PRESENT CLISGET_VACUE 


DTIME, L Pec cline 


T, LGISHPWD 
an 
V SETPRIVe EL 


DVALU 


E. mat —EXTRAPARM 


RCSUAF PARSE. 832; a 3 


VAX-11 Bliss-32 V4.0-74 Page 30 
NT EKSUMGHARTERSCUAR SRCTUAFPARSE 832-4" (33 
NVDEV, UAFS_INVSTR 
NVUSERSPEC 

“KEYNOTFND, UAF$_NAMETOOBIG 

“NOARG, UAF$_NOQOOTE 

XTRN AF $“NOUSERSPEC 


Pp 

XTRN UAF $“PUDSYNTAX Ars PWDNCH 

“PWONOL, UAF$_UITERR 
VALTOOBIG UAF$_ZCONFLICT 


11 
VO6~ 000" update_record = modify all specified fields 122868=1 382 96:51:38 


TLMSK 


. 
=z 
NOYVEOC MCC 


S 


— 
m 
b4 
-_ 
DD 
2 
z2-=43zC- 
meme CS 


.PSECT $CODES,NOWRT,2 
OFFC 00000 ENTRY UPDATE RECORD, Save R2,R3,R4,R5,R6,R7,R8,- 
R9,R10-R11 
9E 0000 MOVAB CLISGET VALUE R11 
TOKENDST, R1 


OKE 
MOVAB RECBUF +468 RO 
4 PRESENT, R8 


STATUS, R 
MOVAB SD_PASSWORD, R6 
C STATUS 
PRIMARY 
NO_FLAG 
FALL _COUNT 
AUTHORIZE_COMMANDS 
PUSHAB CMDLINDSC 
CALLS #2, CLISDCL_PARSE 


AEX 
CALLS #1, CLISPRESENT 
RO; 38 


0588 


OOooooocoo 


oOo OoFfea GOoOOoCooo 
OOooooooooocooeo 


00000006 
00000006 


0360 


000000006 00 
$8 
Dd 


68 
000000006 8F 


COOOCOCCCCCOoOooooo 
Fg ye ae A ag ge oy ee 
FO NVTND OOW™M ONE & LS MOAVITNANO 
 VO4qOEPMO 
cmor — 
Yo4DD 
Peering 


— 
wr 


000000006 
000000006 00 


037¢ 


76 2%: PUSHAB P.AEZ 
7A CALLS #i, CLISPRESENT 
7 BLBS = RO. 
PUSHL R 
CALLS #1, CLISPRESENT 


OOP F S$ MNO PHO" DOCOMO VNVNVNOCOSCSOO 
NOMRO NS $F MOM MNOMNOO—-TCTNTOOOOoO 

OO OW 8 DOW" DS ON MD BMW EO MMMM 

Te TE EIEIO IE OCC IO eee Te eee rere rerererererere rere Te Tere 


OVMOOMWODOMOVIMOONMOOSO—-O F FAOOOOOCSoo 


11 
UAF PARSE 1-56 -1984 02:21: VAX-11 Bliss-32 V4.0-74 Pp 1 
V04~000 update_record = modify all specified fields 1 =3007 138% 96:37:33 DISKSVMSMASTER: CUAF .SRC UAFPARSE.B32:1" (3) 
000000006 8F 5 D4 « CMPL R9. #CLIS_ABSENT : 
¢ BEQL sé : 
0398 9F 3$: PUSHAB P, : 0648 
8 1 FB CALLS #1, CLISPRESENT : 
E 9 BLBC ~—_—dRO, ; 
99000000y 0 FB 0009 CALLS #0, UAFSGENERATE + 0649 
0000000v 9 re OF 4$: CALLS #0, GE TPASSWORD : 0650 
6 ; Ag BLBC =—_«aRO,-:«*10$ : 
01 Ad A 000A BICB2 #2, RECBUF+469 3 065 
67 D9 A MOVL #1, STATUS : 065 
3 000000006 00 BO 5$: BLBC UAE SGL_CTLMSK, 5 : 0658 
0761 31 9 B BRW 05$ : 
0180 C6 9F BA 6$: PUSHAB SD_ACCESS : 0667 
6 es . OBE CALLS #1> CLISPRESENT : 
06 =A 0 o0 000C MOVL RO, cLI_STATUS : 
09 20 E OC BLBS _—-RO, : 0668 
000000006 8F g D1 000C8 CMPL RO, #CLIS_NEGATED : 0669 
15 12 OO0CF BNEQ 8$ : 
50 DD 00001 78: PUSHL RO + 0672 
1F DD 00003 PUSHL #31 : 
0180 C6 9F 00005 PUSKAB SD_ACCESS : 
00000000v 99 0 FB 90009 CALLS #3; GETACCESS : 
5 30 E SEQ LBC =3E—s2O,,:-«138 : 
67 1 00 OE MOVL #1, STATUS + 0674 
O1E0 C6 9F OO0ES 8S: PUSHAB SD_INTERACTIVE : 0677 
68 1 FB OOEA CALLS #1, CLISPRESENT : 
04 A? 0 dO OO0ED MOV. _—RO, CLI_STATUS : 
09 50 €8 OOOF1 BLBS ~—RO, : 0678 
000000006 8F 30 D1 9004 CMPL RO, #CLIS_NEGATED : 0679 
15 12 6 OFB BNEQ 118 ; 
50 oD OOFD 9$: PUSHL R : 0682 
1C bb 9 OFF PUSHL #28 : 
010 cé F 00101 PUSHAB SD INTERACTIVE : 
00000000v 00 g FB 0105 CALLS #3, GETACCESS : 
55 0 €9 0010C 108: BLBC = RO, «168 : 
oF 01 DO 0010F MOVL #1, STATUS > 0684 
0190 C6 9F 00112 11$: PUSHAB SD_BATCH : 0687 
68 gi F 116 CALLS #17 CLISPRESENT : 
04 A? 0 pO 0011 MOVL RO, LJ STATUS : 
09 50 € 11D BLBS RO, 128 : 0688 
000000006 8F 5 D1 1 9 CMPL RO, #CLIS_NEGATED : 0689 
15 12 001 BNEG «-:14$ : 
50 DD 00129 12$: PUSHL R : 0692 
0 bb 128 PUSHL @# : 
0190 F 0012D PUSHAB SD_BATCH : 
00000000v 99 FB 131 CALLS #3, GETACCESS : 
E 138 13$: BLBC=—E—sa, 1 : 
67 1 pO 1 MOVL #1, STATUS > 0694 
0188 6 F OO13E 148: PUSHAB $D_DIALUP ; 0697 
om BB 0014 Bouts ROL ELT STATUS. 
9 F 14 BLBS _—-RO, fkg- : 0698 
000000006 8F p 14 CMPL RO, #CLIS_NEGATED : 0699 
15 12 001 BNEG 3s 7'$ : 
; DD 00155 15$: PUSHL R : 0702 
bb 1 PUSHL @# : 
0188 C6 9F 00159 PUSHAB SD_DIALUP : 


update_record = modify 


00000000Vv 


04 
000000006 


00000000Vv 


04 
000000006 


00000000V 


04 
000000006 


00000000Vv 


00000000Vv 


all specified fields 


i 


ooror ANO 
"OND NOOO 


—a AOO 
mo NO 


& 


0200 


0200 


01FO 


01F0 


024C 


024C 


FF10 


FF10 


FE60 


os 


nmr 
LS ed 
wo 
< 


RON——"ODLS—-Oy DVN MOU rn & VEO 


WMH MMMMMMOGIIIENOEMOO 
=m > COV W O9—- 9 DW ONOSC On 


DOVIVMIOM OV11SM DOOM VUMNOMOMO ON HAN * VIII N O10 MN OW" VVIVIOM OWOM OW" NWM1OOOWMnO 
MOP OO OWI ONIN F OO “OWA OOMOO0 |] OA [OWI FOMO00 $8 "OW "OUMlO0O0—$O'—"OW 


ROOM NOOMMNOS SO MNOOMNOOM OOS ("OMI "OIMNOOT OMI "OOM"OTCT-UoMmonOouUmMmn 
OM" OW "OOF 29909 "9 OW "O00 "OOM" DOD "OOD "9 ON "WOT "OOF "VION WOW "Oow 


SOOOSOOCOSOOSOOOOOOOOOOO OOOO OSOOOSOOOOOOOOOSOOOoOO 


POT OPOPOPIPOPOPOPOPONIP 2 9 ot 


SOOOCOSOCOSSOSOSOSOOOOOCOOOCOO OOS OOOOOOOOOOoOoOoO 


AX-11 Blis 


DISKSVMSMAS 
# TACCESS 
Ro: $5 
#1, STATUS 
SD-NETWORK 
ae CLI PRESENT 
RO, fh3- 
RO, #CLIS_NEGATED 
20$ 
R 
eyo 
iB: GETACCESS 
ai. Status 
“i> CLT SPRESENT 


RQ. CLI _STATUS 
RO, #CLIS_NEGATED 
23$ 


SD_LOCAL 

#3, GETACCESS 
#1, STATUS 

SD {REMOTE 

#17 CLISPRESENT 
RO. CLI_STATUS 


RO, #CLIS_NEGATED 
 Reeaie 


D_REMOTE 

#37 GETACCESS 

#1. STATUS 
_ACCOUNT 

He — 


20-74 
TER: CUAF . SRC JUAF PARSE. B32 r. 
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Nm 


update_record = modify 


000000006 00 


all specified fields 


40 


FF30 


FF30 


3A 


FF4O 


FF40 


5¢ 


FF4C 


FF4C 


FF40 


FF60 


0160 


0160 


FF60 


> 
oo 
oo 
nn 


OODDDD S SF F OOOO OW 0009 Bi I I IPP A PAD MINE EE ANAT 


ao~  £bMis 


—MOMMNDOM VIVIOM DOVE VIMO MMM VIVIOM O10 FMM VINO Owv10 F “OO VMOONOoMmMor— 
Om n".0O9 TF VOOM OVOTNS — OOM OTT TNOITMMOIM NOT NOIOMOIOM"OVTO"OUIM"OoUOMmMmnN 

OOD "908 "9 OD "ODOOWIS OD "OOO "TS OW "OOOO "OOD "OOF ™"OO "TO OT "OOU"S 
SOOOOCOCCOOSCOOCOOOOOOOCOOOO OOOO OO OOOO OOOOO OO OOOO OOOO OOOO OOOOOOO 
SOOoOOCOSOCOSOSSOSOSOOoSOSSOSCOOS COO OSSSSO OOOO OCOO OO OOO OOOO OOO OOOO OOOOoOOO 


OOOO WO F OS “DOOM OOOW OO WPF OG “CNM OONWG F OS —“ONMOONMEG FO Om 


N 11 
=Sep-1984 02:21: VAX=11 
ae ety a Be) ee 
PUSHL #16 
PUSHAB RECBUF +532 
a CALLS #2, GETVAL 
VL #1, STATUS 


nm ~— 

oO 

wn 

uz 
-—->cor- 

wn 

é 


R 
PUSHAB SD_BIOL 


PUSHAB Ab. GETVAL 
VAL 


ww 
oO 
bed 


MOVL #1. STATUS 
31$:  PUSHAB 


PUSHAB RECBUF +560 
CALLS #2, GETVAL 
BLBC 


#1, STATUS 


32$: 
MOVL 
33$: PUSHAB 


PUSHAB RE CBUF +276 

CALLS #3, GETSTRING 

34$:  BLBC RO. 39S 
TST RE CBUF +308 

35$: — INSV 
Ar SCL. 
TUS” 

ITABLES 


SES FMM FB NOM FON MO OUP MDWVWON & NLOS FPWOMAINVIVI"DWOwW"Do —— 
uv 
— 
nn 
=x 


a 
9 
4 


U 
CL 
5 
CL 
C 


BLB : 
PUSHL He 


PUSHAB 
; CALLS GE STRING 
378: 


V4.0=74 
STER: CUAF . SRCJUAFPARSE. 832; 


L 
CALLS #17 CLISPRESENT 
LBC’ RO” STS 


M 
CALLS #2, CLISGET_VALUE 


SD_BYTLM 
CALLS #1, Si SPE SENT 
B RO $ 


SD _BYTLM 
CALLS #@; CLISGET_VALUE 
CALLS #17 CLISPRESENT 
8 RO, 36$ 


SD_CLI 
CALLS oGe CLISGET_VALUE 


#5, #1, A ht CTLMSK 


ery 
I 
L 


Pe Se Se Se Se Se Se Se Se Se Ge Sse Se Se Se Fe Se Se Se Se Ge Ge Ge Sse Ge Fe Se Fe Sse Se Se Se Se Se Se Se Ge Fe Se Se Fe Fe Fe Se Fe Fe Ge Se Se Se Fe Se See Se Be Se 


bn ~CTLMSK 


0781 


0792 


UAF 
12 =32_V4.0-74 Page 34 v04 
1fr3eo-t9gt 93:51:28 DISSUMSmASTERSCUAF SRCIUAFPARSE.03201%° (3) : 
AY te update_record = modify all specified fields °° : 0793 : 
- 01 D0 002F MOVL #1, STATUS + 0796 ef 
°7 resc t8 OF boots 38s: — Pusiaa Sp CBUTIME po : i] 
1. ¢ FA CALLS #1, CLISPRE ; a4 
; 0 £9 Oost Lac : 0799 i] 
. 6 OF Pes purine ; : 1 
FFSC oF CALLS Aes CLI GET VALUE 9800 3 
68 F CALLS #0, GETCPUTIN ; : | 
00000000v 00 EB 39$:  BLBC RO. 48$ : 980 : 
‘ OOO Ta os, Milas HAMS ces 88) HE 
oe Un he ee ae GLI SPRESENT | 
68 d EB oosie BLBC RO ; 0808 4 
14 ; PUSHAB RECBUF +420 ; 74 
o1n8 4 F 6 3 PUSHAB $0 _DEFPRIVILEGES ; a4 
ALLS #2; 
00000000v 00 03 a 8 E Lat RO. ra 3 0810 a 
Foe BREE ais, Bilas eg taDs eae 
rec OT Pe 00838 AES” ats CL ISPRESENT i] 
i Rope fe ee | 
rec te OF 00340 CALLS, #27 CLISGET_VALUE ; - 
68 os FB a 7 CALLS #0, GETDEVITE Arye 21 
Coo0oooOY —9F 8) ES OOSGE 428: GLEE? ROL AUS : 0819 sf 
87 8) 0 00851 MOVL = #1, STATUS ; 0822 : 4 
“8 C& 9F 00354 438: —PUSHAB SD“DIOLN : 
— Pb 00396 CALLS #17 CLISPRESEN i] 
68 80 £8 00388 LBC RO, 448 : 0825 : 
= Sh DD 0035 PUSHL R16 2 
C6 SF 00360 PUSHAB SD_DIOLM ; ; 2 
. one G2 Fa o0se4 CALLS #27 CLISGET VALU : 0826 i 
PUSHL : 
eR | Bins Sante : : 
00000000v 90 OF Ee Bnet BLBC RO. ie : 0828 i: 
er Re SF OO379 44S: PUSHAB SD‘DIRECTORY : : 
90 E 7c CALLS #1; FL J SPRESEN : <4 
68 gh EB bose LBC RO, 46 ; 0834 4 
15 2a BD 00882 PUSHL R10 : 7. 
0 it OF PUSHAB SD_DIRECTORY : | 
FB OO3BA CALLS #0; GETDIRECTORY Fgee: 2 
00000000v 09 £5 1 458: BLBC” RO. GPS : 0837 i] 
é7 01 50 00394 PUSHAB SD“ENGUR’: Nee. a. 
68 b £8 Shean BLBC RO, ; 0043 i] 
1A A BO OO5A a : 31 
AO AG OF OSA CALLS ie CLISGET_VALUE : 0844 | 
68 PUSHL : :] 
42 AG OF OOSAR rian Bb. SETVAL : 24 
AD e ; 2 
ee $6 £9 Oo8e, 47s: BLE’ RO: 


Ee = 
" neememmenmeaneeecmeamessia memantine mnmmmeneeannmee meneame emma eee een 


uae Parse 
v04-0 update record = modify 


000000006 


00000000v 


00000000v 


00000000v 


1 
all specified fields 16 
67 01 00 B7 
es 01CC sf fe 2 
s 3 oP SRK) 
BH Baiee 
gn BRE 
i D 
21 0 €9 D 
A 00 DA 
sce 03 Hs e) 
OO oo BH 
09 os F § ER 
4 09 EF 
oan HIE 
67 01 00 OO3F 
| BO A6 OF 8 FB 
68 01 Fe FE 
1A 50 €9 00401 
5A DD 00404 
BO A6 OF Sih 
68 03 FB 00409 
10 DD 0040C 
44 AQ YF 0040E 
00 Os FB 00411 
60 E9 00418 
67 01 00 00418 
68 co OF Pe oocet 
0D 95 8 0424 
00 98 £8 0427 
6D 0 €E9 0042E 
67 01 DO 00431 
0170 6 9F 004 
68 1 4 
: Rp 8 
0170 oF beep 
68 6 FB 00444 
pp be? 
90 * 03 FB ooede 
ép 85 £8 goes 
67 01 BY 4 3 
68 00 OF Fb oocee 
i 30 Obese 
- dO 03 oF 4 ; 
mg HOR Be 
FOO C9 F 4 6 


Yo. 
-3e0- 
~Sep-1 


48$: 


49$: 


52$: 


53$: 
54$: 


55$: 


= (SP) 


4 02:21: VAX-11 Bliss-32 V4.0-74 Page 35 
oe 99:31:38 DL SKSVMEMASTERSLUAR SRCSUAFPARSE 832037 3} 
OVL #1, STATUS ; 7k} 
PUSHAB SD_EXPIRATION : 
CALLS #1, CLISPRESENT : 
MOVL RO, CLI Py 3 
Haas R #cCLT NEGATED 3; 0850 
MOVCS #0, (SP), #0, #8, RECBUF +364 ; 0853 
BRB 50$ + 0854 
BLBC 20 51$ 3; 0857 
PUSHL ; 0860 
PUSHAB SD_EXPIRATION : 
CALLS #2 cel See VALUE ; 
PUSHAB RECBUF +364 ; 0861 
PUSHL ¢ 
CALLS aoe LIBSCVT_TIME g 
MOVL RQ, STATUS 3 
BLBS 0 3 
BRW 3 
MOVL #1, STATUS 3; 0867 
PUSHAB ‘SD_FILLM ; 0870 
CALLS #1, ata : 
BLBC RO $ $ 
PUSHL 3; 0873 
PUSHAB SD_FILLM ; 
CALLS a CLISGET_VALUE ; 
PUSHL i 3; 0874 
PUSHAB RECBUF +536 3 
CALLS » GETVAL $ 
BLBC RO, 3 
MOVL #1, STATUS ; 0876 
PUSHAB SD_FLAGS ; 0879 
erst? #1, CLISPRESENT : 
snits #0, TFLAGS 3; 0882 
VL #1, STATUS ; 0884 
PUSHAB SD_JTQUOTA ; 0887 
CALLS #i, bbs SPE SENT $ 
BLBC RO F 
PUSHL ; 0890 
PUSHAB S$D_JTQUOTA ; 
CALLS #2, CLISGET_VALUE 3 
SHL i 3; 0891 
PUSHAB RECBUF +568 $ 
CALLS #2, GETVAL 3 
BLBC ° 3 
MOVL #1, STATUS ; 0893 
PUSHAB SD_LGICMD ; 0896 
CALLS #1, pbs SPRESENT 3 
LBC RO 3 
PUSHL R10 > 0899 
PUSH SD_LGICMD 3 
CALLS #2, CLISGET_VALUE 3 
S$ y ; 0900 


#64 
RECBUF +212 


<c 


> 
ce elt ee ee ee ee ee ee ee ee ee ee ee ee ee ed ee ce ce cee ee ee ed ee ed ed ee ed ed ez 


LN 


D 12 
UAF PARSE 16-Sep-1984 02:21: VAX-11 Bliss-32 V4.0-7 
V06~000 update_record = modify all specified fields 14- =3ep - 38 96:3} 33 DISKSVMSMASTER: CUAF . SRC UAF PARSE. B32" 79 at 5} 
00000000v 00 F 474 CALLS TSTRING 3 
6A 0 E 478 56$: BLBC fo: oS 3 
67 1 0 rh: MOVL Ud ; 090 
EO A6é YF 00481 57S: PUSHAB 3). *MAXJOBS ; 090 
68 1 Fe 4 CALLS le CLTSPRESENT 3 
1A °F 487 BLBC 4 3 
A 4 48A PUSHL ; 0908 
EO A F 0048C PUSHAB SD_MAXJOBS : 
68 9 FB 0048F CALLS #2, CLISGET_VALUE : 
DD 00492 PUSHL ; 0909 
32. AD soOF «00494 PUSHAB RECBUF+518 ; 
00000000vV 00 9s 43 ont CALLS #2, GETVAL ; 
6D E 49E 58$: BLBC RO, 3 
67 01 00 ra) MOVL #1, STA Tus ; 0911 
0138 6 9F Q04A4 59S: PUSHAB SD_MAXACCTJOBS 3; 0914 
68 1 Fe 04A8 CALLS #1, CLISPRESENT : 
1B 0 €9 004AB BLBC 20° i$ 3 
5A DD OO4AE PUSHL R1 : 0917 
0138 C6 9F 00480 PUSHAB 8 -MAXACCTJOBS : 
68 02 FB 00484 CALLS ae, CLISGET_VALUE 3 
10 DD 00487 PUSHL #1 ; 0918 
34 AS YF 00489 PUSHAB ae ; 
00000000V 00 Os FB era) CALLS #2, GETVAL 3 
6 0 €9 004C3 60$: BLBC ° 3 
6 01 DO Boece MOVL #1, STATUS ; 0920 
014C C6 9F 004C9 618: PUSHAB 50 AA XDETACH ; 0923 
68 9 FB 004CD CALLS 4 ’ CL ISPRESENT ‘ 
1B 0 £9 ks BLBC : 
5A 0D 0040 PUSHL Rt ; 0926 
014C C6 9F 00405 PUSHAB SD_MAXDETACH 3 
68 96 FB 00409 CALLS We, CLISGET_VALUE 3 
10 OD Bpebe PUSHL ; 0927 
36 «=6—A9 «OF O04DE PUSHAB RE CBUF +522 3 
00000000V 00 9¢ Fe 004E1 CALLS #2, GETVAL 3 
69 E9 004E8 62$: BLBC ° ; 
67 01 DO 004EB MOVL #1, STATUS ; 333 
FO AG OF Bees 63$: PUSHAB ol ; 0932 
68 9 FB O04F1 CALLS #1, CL JSPRESENT 3 
1D 0 E9 004F4 BLBC RO, 65$ : 
5A DD 004F7 PUSHL ; 0935 
FO Ag 9F OO4F9 PUSHAB SD_OWNER 3 
68 6 FB OO4FC CALLS aoe CLISGET_VALUE 3 
1 DD OO4FF PUSHL ; 0936 
8 po 4 PUSHL 3 
FE80 F PUSHAB Re COUE +8 3 
00000000v 90 3 . By CALLS ETSTRING 3 
3 0 € : 64$: LBC $ 3 
6 01 o? 1 MOVL ni. sate ; 0938 
10 Ad 9F 14 65$: PUSHAB SD_PBYTLM ; 0941 
68 1 Fe 17 CALLS 4 CLISPRESENT : 
1A O€ 1A BLBC 3 
A 4 1D PUSHL : 0944 
10 A F 1F PUSHAB _P vis 3 
68 9 FB CALLS ; eI GET_VALUE 3 
pp PUSHL @# ; 0945 
60 A F PUSHAB oy Bue ween : 
00000000v 00 02 FB A CALLS #2, GETVAL 3 


iS 
v04-00 


00000000v 


00000000v 


4C 
00000000v 


48 
00000000Vv 


00000000v 


00000000v 


67 


68 
1A 


—-f ONO —-OA ONS FHA OOO FHKO ASANO KO OOO s 


ro NCO -—-O NMG NEO NTO NUNC NNO COO NUO 


& 


oo Ouro 
oCce NWO 


update_record = modify all specified fields 


0 £9 
1 

w HH 
1 Fe 

O.€ 
A 0D 

34 C«<CA F 
02 FB 
1 pp 

54 OA 44 
% 
1 00 

48 A6 YF 
% 

48 Ag 4 
a 
01 00 

00A0 6 OF 
1 FB 
0 €9 
01 00 

OOAO C6 9F 
01 FB 
90 €9 
01 00 

20 AG OOF 
a 
01 00 

20 Ae oF 
a 
01 00 

008C £6 +4 
ye 

008C £6 44 
ye 
01 00 

58 ag oF 
3 

a 
A 0D 

58 AG OOF 
02 FB 
1 pd 

38 OA 7 
% 
1 po 

0124 6 OF 
1 4 

0 € 


SOCGSOCOSOOCOSGOOOOOCOOOOOOOSOOOOOOOSOOSOSOOOOSOOOOSOOOGOOOOOOOOOOOOOoOOo 


SOOCOCOCOOCOCOOOCOOSOOCOCOCOSOOSOOSOGSOCOCCOCSCCOCOCOCOCOCOOCOOCOCOOOOOOOOOOOOOOoO 
POPU LPV DIV PVDPVLV LIVI LVLVLIULVIVIUSIVDULVIUIUSUSUS USUI VSULUSUSUSUIVS USSU SUS USUI ESTOS USES VOSS ESOS 


NMMMMMOCOIVVTWVOOOOoww 


+O > NOOCW 


SPS SSAA WOIMIMOUN SO FP NWO OWS F NEO FPOUMNVOT FeNSS 


tt 


Sep- 
=Sep- 


66$: 
6 


68$: 
69$: 


70$: 


71$: 
72$: 


73$: 
74$: 


75$: 
76$: 


77$: 
78$: 


1986 98:81:28 bt 


BLBC 
0 


X-11 B 
SK KSVMCH 
RO, 7 

#1, STATUS 
ai cLisp SPRESENT 
RY 
sp. PGFLQU 

‘ CL SeeT VALUE 
R sag AHS 

#2, GETVA 

» STATUS 
D_P_RESTRICT 

15 TLISPRESENT 
‘Pp 
ae 


RESTRICT 
TRESTRICT 


“i, 
Ss 
# 


RO, 
; 


RESTRI 

ISPRE 
; SECONDARY 
*S_RESTRICT 
> GETRESTRICT 
; 79 

STATUS 
$D’PELAGS 
> CLISPRESENT 
#1. PRIMARY 

* PFLAGS 
#17 GETPFLAGS 
1; STATUS 

* SFLAGS 
#17 CLISPRESENT 


: 
SPR 
0 
Ss 
R 
T 


“i, CLISPRESENT 


_PRCLM 
CLISGET_VALUE 

RECBUF +524 

#2, GETVAL 


fi. STATUS 
SD. *PRIMEDAYS 
I PRESENT 


$s-32 _V 
STER: nt 


i OSRCSUAFPARSE. B32 . 


° 3 


947 
950 


0953 


0954 


0956 
0959 


0962 


0964 
0967 


; 0970 
; 0971 


; 0973 
; 0976 


; 0979 


0980 


0982 
0985 


0988 


0990 
0993 


. 
o 
. 
o 
. 
, 
. 
. 
. 
. 
. 
e 
2 
eo 
7 
o 
7 
° 
. 
° 
. 
. 
. 
. 
o 
. 
o 
. 
. 
. 
e 
. 
a 
+ 
° 
. 
° 
° 
° 
o 
7 
o 
os 
* 
« 
. 
° 
e 
. 
o 
o 
. 
. 
. 
° 
eo 
. 
eo 
. 
o 
. 
oe 
° 
° 
. 
° 
. 
o 
+ 
7 
“ 
° 
7 
° 
. 
° 
. 
o 
. 
° 
7 
° 
7 
o 
. 
° 
7 
° 
o 
° 
o 
. 
a 
e 
. 
° 
. 
° 
. 
e 
- 
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UAF PARSE 16-Sep-1984 02:21: VAX-11 Bliss-32 V4.0-74 P 
¥06~008 update_record = modify all specified fields 1 =3007 1382 96:51:33 DISKSVMSMASTER: CUAF.SRC UAFPARSE.B32:1— a 
00000000V 00 F F7 CALLS #0, GETPRIMEDAYS : 1005 
36 $0 E sre 79$: BLBC nO. $55 : 
6 1 BO 6 MOVL #1, STATUS + 1007 
68 Ab 9F 00604 80S PUSHAB SD_PRIORITY + 1010 
68 1 FB 6 CALLS #1> SL ISPRESENT : 
1A 0 € A BLBC =_- RO, 8 2$ : 
A BD D PUSHL R16 + 1013 
68 A6 OF F PUSHAB SD_PRIORITY : 
6B 0 FB 0061 CALLS ie CLISGET_VALUE : 
BD 61 PUSHL # + 1014 
30 Ad 9F 0061 PUSHAB RECBUF+516 : 
00000000v 09 08 FB 06 A CALLS #2, GETVAL : 
1 E 1 81$: LBC 3—s&aRO, 83 ; 
67 01 DO 00624 MOVL #1, STATUS + 1016 
7C Ab 9F 00607 82% PUSHAB SD_PRIVILEGES + 1019 
68 gi EB 62A CALLS #17 ¢ ISPRESENT : 
16 0 : 62D LBC —-_s«aRO,._ «85S ; 
C8 «AD «OF 006 9 PUSHAB RECBUF +412 + 1022 
7c «(AG OOF 906 SHAB SD_PRIVILEGES : 
00000000V 00 9 FB 006 CALLS #2, GETPRIV : 
03 58 00630 83$ BLBS RO, 84$ : 
0160 31 0640 BRW 107$ : 
67 01 dO 064 84$:  MOVL #1, STATUS + 1024 
O3AC C6 9F 00646 85$:  PUSHAB P.AF : 1027 
68 o1 FB OO64A CALLS #1, CLISPRESENT : 
04 A7 0 DO 0064D MOVL RO, CLI_STATUS ; 
000000006 8F 50 01 00651 CMPL RO, ACLYS_NEGATED + 1028 
08 12 00658 BNEG : 
50 AB AI YE 0065A MOVAB RECBUF+380, TIME + 1031 
0 7¢€ 0065 CLRQ = (TIME) : 103¢ 
: 11 006 BRB : 103 
12 9 00662 86$ BLBC = RO, -88$ + 1036 
50 AB AD SE 0066 MOVAB RECBUF+380, TIME + 1039 
60 01 CE 00669 MNEGL #1, (TIME) + 1040 
04 Ad 01 ce 066¢ EG #1, 4CT1 ; 
01 «Ad 02 8A 00670 87$ BICB2 #2, RECBUF +469 + 1041 
67 01 DO 00674 MOVL #1. STAT : 1042 
0214 C6 9F 00677 88$ PUSHAB SD_PWDLIFETIM > 104 
68 1 FB 0067B CALLS #17 CLISPRESENT : 
04 A? 0 DO 00676 MOVL RO, CLI_STATUS : 
000000006 8F D1 0068 CMPL RO. #CLTS_NEGATED t 1046 
9 12 00689 BNEG 89$ ; 
08 00 6E 09 2c ae MOVCS #0, (SP), #0, #8, RECBUF+372 + 1049 
44 11 re BRB 93$ : 1050 
48 20 E9 00694 89$:  BLBC RO, 94$ + 1054 
A BD 97 PUSHL RI : 1057 
0214 C6 F 00699 PUSHAB SD _PuDL FETIME ; 
0 FB H CALLS #2, CLI GET _VALUE F 
5 04 AA p A MOVL  TOKENDSC+4,~RO : 1058 
04 00 6 6A 20 006A4 CMPCS TOKENDSC, (RO), #0, #4, P.AFF ; 
_ o¢ 12 boene BNEQ 90S : 
08 00 6E “= 06 2¢ A MOVCS He (SP), #0, #8, RECBUF +372 > 1061 
67 1 B VL #1, STATUS : 1 
% 00 6 BRB 93$ ; 1988 


12 

UAF PARSE 18-56 -1984 02:21: VAX-11 Bliss-32 V4.0-74 Page 39 UAF 
¥04~008 update_record = modify all specified fields 1 =3007 1382 96:54:33 DISKSVMSMASTER: CUAF .SRC UAF PARSE .832:1" 3 v4 
AO AD OF $A 90$: PUSHAB RE CBUF +372 3 1065 a. 
A 0D 00680 PUSHL R : 31 
000000006 09 F BF CALLS #2, LIBSCVT_DTIME : :] 
D C6 MOVL RO, STATUS : 31 
‘ DD Oosee 918:  PUSKL STATUS : 1068 1 
000000006 00 61 : C CALLS #1, LIBSSIGNAL : 31 
014 605 92$:  BRW 107$ : 1069 31 
01 a9 0 A 00608 93$:  BICB2 #2, RECBUF+469 : 1071 31 
67 0 006DC MOVL #1, STATUS : 1072 31 
0228 (C6 9F OO6DF 94$ PUSHAB SD_PWOMINIMUM : 107 31 
68 1 FB O6E5 CALLS #17 CL ISPRESENT : 31 
18 0 € ES BLBC =_-«RO : 31 
SA DD 006E PUSHL R16 : 1078 31 
0228 C6 9F 006EB PUSHAB SD_PWOMINIMUM : 31 
68 0g FB OO6EF CALLS #27 CLISGET_VALUE : 1 
DD 006F2 PUSHL @# : 1079 31 
96 AD 9F 006F4 PUSHAB RECBUF+362 : a: 
00000000v 00 08 FB O06F7 CALLS #2, GETVAL : 7 
D4 E9 O6rE BLBC ~—_—«aRO, : 31 
67 01 DO 00701 MOVL #1. STATUS + 1081 31 
023C C6 9F 00704 95$: PUSHAB SD_QUEPRIORITY + 1084 31 
48 gi FB 00708 CALLS #17 CLISPRESENT : 31 
1B 0 €9 00708 BLBC ~=_-«aRO,_:«96S : 31 
SA DD 00706 PUSHL 1 : 1087 31 
023c 4666 «OF 0071 PUSHAB $D_QUEPRIORITY : 1 
6B 0g FB 00714 CALLS #2, CLISGET_VALUE : 1 
08 0D 00717 PUSHL : 1088 . 7 
31 Ad 9F 00719 PUSHAB RECBUF+517 ; 31 
00000000v 00 98 FB oori¢ CALLS #2, GETVAL F 31 
AF E9 007 BLBC . ; 51 
67 01 00 007 6 MOVL #1. STATUS : 1090 31 
00B0 C6 9F 00729 96S: PUSHAB SD_SHRFILLM : 1093 1 
68 01 FB 0072D CALLS #1; CLISPRESENT : 1 
1B 50 €9 007 LBC ~=—_—s&aRO,: 97 ; 31 
5A DD 007 PUSHL R11 3: 1096 3 1 
0080 (C6 9F 007 PUSHAB SD_SHRFILLM ; 1 
6B 02 FB 00739 CALLS #2, CLISGET_VALUE : . 
10 oO 07 C PUSHL #16 : 1097 31 
46 AD OF 0073E PUSHAB RECBUF+538 ; 1 
00000000v 00 FB 00741 CALLS #2, GETVAL : 3:1 
BA E9 00748 BLBC ; ; 31 
67 01 DO 00748 MOVL #1. STATUS : 1099 31 
00CO C6 9F O074E 978 PUSHAB SD_TQELM + 1102 :1 
68 1 FB 7 CALLS #17 CL ISPRESENT : 31 
1B 0 €9 007 BLBC =OsiéaR $ : 31 
A pp 7 PUSHL > 1105 31 
ooco )6C¢ F OO75A PUSHAB SD_TQELM 3 3 1 
68 02 FB 007 CALLS #2, CLISGET_VALUE ; 3:1 
1 bb 7% PUSHL : 1106 31 
3E =O AD OOF 163 PUSHAB RECBUF+530 ; 31 
00000000v 00 5 FB 7 CALLS #2, GETVAL : 31 
6A E 16D BLBC ~=E—_—saR,,_:«1018 ; 31 
67 1 bo 7 MOVL #1, STATUS : 1108 31 
oocc 6 F Mi 98$ PUSHAB S$D_UI : 1111 a 
68 FB 7 CALLS #1; CL ISPRESENT ; 31 

16 0 €9 0077A BLBC =_-«aRO,._« 99S F 


H 12 
UAF PARSE 16-Sep-1984 1: VAX=11 Bliss-32 V4.0-7 0 
¥06~008 update_record = modify all specified fields 17-368- 38 98: 3} M8 DI SKSVMEMASTERS :CUAF. sre UAF PARSE .832; 1 rye a 
5A 0D 00770 PUSHL R10 3 1114 
o0cc oF ai PUSHAB S$D_UIC : 
FB 007 CALLS #27 CLISGET_VALUE : 
00000000v FB 007 CALLS 4&0, gr TyIC + 1115 
E9 0078D BLBC =_- RO,:«*103 : 
6 1 p 7 OVL #1, STATUS + 1117 
00EO C6 9F 00793 99%:  PUSHAB SD/WSDEFAULT + 1120 
68 1 FB 007 CALLS #17 CLISPRESENT : 
iE 0 £9 0079A BLBC ~=—_-RO $ : 
A BD 79D PUSHL R16 + 1123 
O0EO (6 9F 0079F PUSHAB SD_WSDEFAULT : 
68 6 FB O7A CALLS We CLISGET_VALUE : 
pp 7A PUSHL ? + 1126 
4C AD OF OO7A PUSHAB RECBUF+544 : 
00000000v 00 08 FB 007 CALLS #2, GETVAL : 
6E E9 0078 LBC CtiéiRR ; 
4E AD B4 078 CLRW RECBUF +546 + 1126 
67 01 b0 00788 MOVL @# STATUS : 1187 
OOFO C6 9F 007BB 100$: PUSHAB SD._WSEXTENT + 1130 
68 01 FB OO7BF CALLS a. CLISPRESENT : 
1E 50 £ o7ce LBC F 
SA 0D gore PUSHL RS + 1133 
OOFO C6 9F 007C7 PUSHAB SD_WSEXTENT : 
68 02 FB 007CB CALLS #27 CLISGET_VALUE : 
11 oD 007¢ PUSHL #1? + 1134 
50 Ad 9F 007D PUSHAB RECBUF+548 : 
00000000v 00 08 FB 07D CALLS #2, GETVAL : 
46 E9 OO7DA 101$:  BLBC 1 ; 
52. AS B4 00700 CLRW ett + 1136 
67 01 00 Oo7e MOVL #1, ST > 1137 
0100 C6 9F OO7E3 102$: PUSHAB $D_WSQU + 1140 
68 1 FB Oo7e CALLS ae ELTSPRESENT : 
1E 0 £9 O7EA BLBC : 
A BD 7ED PUSHL + 1143 
0100 f F OO7EF PUSHAB SD_WSQUOTA ; 
6B FB OO7F3 CALLS 3 L1SGET _VALUE : 
11 0D 0076 PUSHL + 1144 
48 Ad OF OO7F PUSHAB RECBUF+540 : 
00000000v 00 08 FB Orr CALLS #2, GETVAL F 
1E E 103$:  BLBC 5 : 
4A AD B4 0 CLRW RECBUF +542 3 1146 
67 1 00 MOVL + 1147 
08 000000006 00 2 £0 00 08 104$: BBS #2, UAFSGL_CTLMSK, 105 : 1150 
04 000000006 0 1 €1 0081 BBC #1, UAFSGL-CTLMSK, 106$ : 
1 bo 18 105$: ROVL #1, RO : 1152 
50 67 Bd 1F 106: MOV STATUS, RO + 1154 
50 b4 33 107$: CLRL RO > 1155 
4 RET F 


3; Routine Size: 2086 bytes, Routine Base: S$CODE$ + 0000 


S35F 


oO 
o 


ts 
ODONOULSWN—OOC 


pojofelelelelelelolololelelololo! 
bat tv} tet cert > PN 
NOUS Ww 


ooooo 
oO 


SS& 


SS 


wr 


09 C9 G9 09 09 09 09 69 09 09 ISIN SINS NIOA AA AAAI 


OWONOUFSWN $0 OONOUS WN OO ONOUFS WIN Oo 


SZ23SF 


NOR oS 


SEVee RENTS SSSR ESTE 


me me ee ee ec ee ee ce ee em ee a DD ee ee ee ee ed aed ad ed ed dd 
ame ee ee ee ee a ed ed ed od dd wd td = od = = od = = SS 


eel cle cl cil call cells eels cl cel cil nel eels cells cls cls ceils cls el cls el cel 


BSeranrowaSSSVERRaTes 


es 


No 
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1b-5e 1984 02:21: VAX-11 Bliss- 
getaccess - get hourly and daily access control 1 met 96:54:33 DISKSVMSMASTER: CUAF 


1 Zsbttl ‘getaccess - get hourly and daily access control flags’ 
1 Sa getaccess (qual_name, access_type, qual_status) = 


'o+ 
FUNCTIONAL DESCRIPTION: 


Parse the value List for hourly login restrictions on the 
selected access modes. 


INPUTS: 
qual_name - descriptor of qualifier mame to use 
access_type = bitvector representing the access modes to be affected 
qual_status - status from cli$present for qualifier 
IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
true -> all keywords and parameters were specified correctly 
SIDE EFFECTS: 


Oh Ne De Ree ed ed et 


none 
ma 

access_type : bitvector; 
STRUCTURE 


Pe i aped Ci; n, ext=0) = 
n 
threebytevector+i*3)<0, 24, ext>; 


SASSUME (SBYTEOFFSET (uaf$b_network_access_s), EQL, SBYTEOFFSET (ua 
SASSUME (SBYTEOFFSET (uaf$b-batch_access_p), EQL, SBYTEOFFSET (uaf$ 
SASSUME (SBYTEOFFSET (uafSb_batch_access_s), EQL, SBYTEOFFSET (uaf$ 
SASSUME (SBYTEOFFSET (uaf$b_local_access_p), EQL, SBYTEOFFSET (uaf$ 
SASSUME (SBYTEOFFSET (uaf$b_local_access_s), EQL, ig ALS AH overs 
SASSUME (SBYTEOFFSET (uaf$b_d alup_access_p), EQL, SBYTEOFFSET (uafSB 
SASSUME pb LS da (uaf$b_dialup_access_s), EQL, SSYTEOFFSET (uaf$b 
SASSUME (SBYTEOFFSET (uafSb_remote_access_p), EQL, SBYTEOFFSET (uaf$b_d 
SASS (SBYTEOFFSET (uaf$b_remote_access_s), EQL, SBYTEOFFSET (uaf$b_r 
bind 


0-74 Page 41 
OSRCSUAFPARSE.832;1°" (4) 


eo a ao a oe ee ee ee ee ee ee Oe ee ee ee ee ee a a ee ee ee ee ee ae ee ae 


~\ocal_access_s) 
_dialup_access_p)+ 


12 
getaccess - get hourly and daily access control 1b-Sen-1964 96:54:33 ot 


access_vector = recbufCuaf$b_network_access_p] 
: threebytevecfor; 


X-11 Bliss-32 V4.0-74 P 4 
SKSVMGHASTERSCUAR SRCSUAFPARSE.B3203°° (25 


<c 
oe 


' 
Initialize output values. 
primary_access = -1; 


secondary_access = <1; 
if not .qual_status then no_flag = true; 


1 
Fetch value List items and parse them. 


ee ee ee SS | 


while true 
do 


begin 
if not cli$get_value (.qual_name, tokendsc) 
then exitloop; 


tparse_block(tpa$l_stringcnt] = .tokenlen; 
tparse_block(tpa$l_stringptr] = .tokenptr; 

if not Lib$tparse Ttparse block, access_states, access_keys) 
—_ return LIBSSIGNAL(UAF$_BADVALUE, 2, .tokenlen, .tokenptr); 
end; 


1 
Default omitted values. 


if not .primary and not .secondary 
then secondary_access = .primary_access; 
f .primary and not .secondary 
then secondary_access = 0; 
f .secondary and not .primary and .primary_access eql -1 
then primary_access = 0; 


if not .no_flag 
then 


begin 

primary_access = not .primary_access; 
secondary s66ees = not .secondary_access; 
end; 


PUPP SISSIES BS EEE EE 


NOOO DOO 
YSHARANASSSEISALEVIS SSIS ALUN LS SHVSEAEGWLS SRIF RS Doe Oro Care 


MIPITONS| 


MIPIM 
Ooo w 


t 
: Write the specified fields in the UAF record. 


incr j from 0 to 4 
do 


begin 
f .access_typel.jJ 
then 


begin 
eceess_vector £45339 = .primary_access; 
access_vector [.j*2+1] = .secondary_access; 


& 
4 
end; 
; end; 
true 


WN 9 OONAUE WN $0 ODNOAUE WIN 0 OONAUE WIN (OOO NAOV EWN" OOONOULEW 


a ee eee eee 
ee ce eee ee ce ee ce ee ec ce ce ee me ee ce DD ce cD ec ee ee Dc DD ed ae ed ed ed wd ed 
em a a a a aa a a a a a at a a a a a ss ss — sd 4 — 4 9 — 9 1s 2 I SS Ls tt Yt 


Be Se Se Se Se Be Be Se Se Se Se Se Ge Se Se Se Ge Ge Se Se Fe FF Se Ge Se Se Ge Se Se Ge Se Ss Ge Se Se Se Sse Se Se Se Se Se Se Se Se Se Se Se See Se See Ss Se Sense 
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VO4~008 getaccess - get hourly and daily access control 12-86-1382 96:8 33 DL SKSVMSMASTERSCUAE SRCSUAFPARSE 83203" (4) 


; 1178 1270 1 end; 


003¢ 00000 GETACCESS: 


ORD Save R2,R3,R4,R5 : 1157 
55 99000006 9E 02 MOVAB TOKENPTR, RS : 
34 0000 06 9E 0000 MOVAB TOKENLEN, R4 : 
0000000' 9E 019 MOVAB PRIMARY_ACCESS, R3 : 
é 1 CE 0 1 MNEGL #1, PRIMARY_ACCESS + 1219 
04 +A 1 ¢ 1A MNEGL #1. SECONDARY ACCESS + 1220 
04 Oc ac €E8 0001 BLBS QUAL ATus, T$ + 1221 
08 A3 oi D 00 MOVL #1, RO_FLAG : 
000000006 00 9F 00026 18: PUSHAB TOKENDSC + 1229 
04 AC DD O002C PUSHL  QUAL_NAME ; 
000000006 90 : FB OO2F CALLS #2, CLISGET_VALUE : 
é : 00 BLBC~—E.-s@aRO, : 
D4 A 64 3c 000 MOVZWL TOKENLEN, TPARSE_BLOCK+8 + 1232 
D8 AS 65 00 00 D MOVL  TOKENPTR, TPARSE~BLOCK+12 + 1233 
00000000' 00 9F 00041 PUSHAB ACCESS_KEYS > 1234 
00000000" 00 9F 00047 PUSHAB ACCESS-STATES : 
CC AS) OF 00040 PUSHAB TPARSE BLOCK : 
000000006 00 : FB 00050 CALLS #3, LIBSTPARSE : 
cc 0 E8 00057 BLBS : ; 
65 DD 0005A PUSHL  TOKENPTR + 1235 
7E 64 3¢ 0005¢ MOVZWL TOKENLEN, -(SP) : 
02 DD 0005F PUSHL # : 
000000006 8F DD 00061 PUSHL #UAF$_BADVALUE : 
000000006 00 04 FB 90067 CALLS #4, LIBSSIGNAL : 
04 0006E RET 3 
50 0c a3 DO O06F 2$ MOVL PRIMARY, RO > 1241 
0B 50 €8 00073 BLBS : 
04 10 A3 E8 00076 BLBS § SECONDARY, 3$ : 
04 A3 $ DO 0007A MOVL § PRIMARY_ACCESS, SECONDARY_ACCESS : 124 
07 E9 OOO7E 3$: BLBC > 124 
07 10 A3 £8 0 1 4$: BLBS § SECONDARY, 6$ : 
04 Ad D4 CLRL SECONDARY ACCESS + 1244 
OE 10 A3 £9 00088 53: BLBC SECONDARY; 7$ > 1245 
ce 50 £8 C 6$: BLBS R : 
FFFFFFFF © 8F 6 DI F cAPL PRIMARY_ACCESS, #-1 ; 
6 iz 9 CLRL § PRIMARY_ACCESS : 1 46 
08 08 as CE 9A 7$ BLBS NO FLAG; > 124 
6 63 D MCOML PRIMARY ACCESS, PRIMARY ACCESS + 1251 
04 Ad 06 A p ie NCOML SECONDARY_ACCESS, SECONDARY_ACCESS i] 4 
21 08 A 5 AB Ss: BBC J ACCESS_TYPE, 10$ : 1261 
é ; 1 AD ASHL Lap sy > 1264 
5 C B1 MULL3 #3. Rd, RI : 
0000000060041 18 Q F BS INSV.  PRIMARY_ACCESS, #0, #24, ACCESS_VECTORCR1] ; 
51 c B MULL3 #3, R2,"R > 1265 
0000000060041 18 0 04 ad F C INSV ECONDARY ACCESS, #0, #24, ACCESS_VECTOR+3- ; 
D6 50 4 F CE 10$:  AOBLEQ #4, J, 9$ : 1258 
50 8 3 tit MOVL. #1. RO : 1338 


VAX=11 oii it ‘a 


UAF PARSE 18-56 4 1: 

VOee060 getaccess = get hourly and daily access control 1 730071382 94: 3} 33 Disk $VMSM RS CUAR OSRCSUAF PARSE. B32: C: 
04 00005 RET 3 

; Routine Size: 214 bytes, Routine Base: SCODE$ + 0826 


UAF PARSE 
VO6~008 


Routine Size: 


check primary = check presence of PRIMARY keywo if: $e0-1944 94: $1: 8 Mt 


1271 #1 } Rebel *check_primary = check presence of PRIMARY keyword’ 
: 4 begin ne check_primary = 

1274 rimary and not .secondar 

1275 ends ‘es . J 


0000 00000 CHECK_PRIMARY: 
WOR 


. Save no 
50 00000000' 98 00000000' op C9 F ROO Re BISL SPUENDARY "BRIMARY, RO 
0 Be ¢ Bett MCOML RO, RO 


18 bytes, Routine Base: S$CODE$ + O8FC 


X=11 $9232 v4, 
SK$V MoMA R: CUAF. OSRCSUAF PARSE. B32; rt 8 


Sete Be 
aa 


UAF PARSE Sep-1 1: AX-11 B 
VOaLOb8 check_secondary = check presence of SECONDARY k 1p- $80-1984 9¢: $| 33 Die Sumo HE Peat OC RCSUAF PARSE. B32; Ppee (8 
3 11 1 Asbttl ‘check s d = check . 
He 137 re } og) speek ert te . check presence of SECONDARY keyword 
1189 1979 8 noe “secondary 
0000 00000 simi saab his we so7F 
o ave no n ® 
50 00000000" 00 p2 00002 MCOML SECONDARY, RO ; 
pz goons : 13% 


; Routine Size: 10 bytes, Routine Base: S$CODES + O90E 


ee ee ee ee ee ee Eee Ss 
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Vv04- Bo set_range = set hourly restriction bits 1 =3007 1382 96:51:38 DLSKSVMSMASTERSCUAE SRCSUAF PARSE .B3207° F 
1 1 &sbttl "set_range - set hourly restriction bits’ 
1 global routine set_range = 
egin 
‘tee 
FUNCTIONAL DESCRIPTION: 
| Set or clear appropriate hourly login restriction bits 
i INPUTS: 
none 
i IMPLICIT INPUTS: 
i 
i QUTPUTS: 
none 
ROUTINE VALUE: 
i 
i 
s 


true => successful completion 
false -> error in flag name 
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ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


builtin 

ap; 
map 

ap : ref block C,bytel; 
local 

address, 

wi ° 

leftmost, 

wrap; 


WMA NINININININININID 2 2 2 SS “DOOD OCOOCOOOCOOOOOOOO OC 
—OOONAVES WN $9 OONAUES WN ("OO ONOUE WN SO OONOULS wr 


' 
: Point to the flags longword to use. 
if .secondary 


then address = secondary_access 
else address = primary_access; 


PIPIMINININD 2 2 9 [DOOD OCOOCOOSCOCOCOOOOOOO0O0O0OOWCCOCD00 
PUN CO OONAUE WN 9 ODO NA NE WWIN OOD NAME WI OOONAUE Wn) 


AAAI AAI WIAA AINA AANA AAI AIA AAAI GIP PIPOPUDIPININININPOPYINPYININININININPY 


Get the ending bit - note that this is the same as the starting 
bit for a single hour. 
t 


' 
i 
i 
i 
left_bit = .apCtpa$l_number); 
' 
i 


Make sure hour is not out of range 


e Hote aS 


me a ee ee ee ee ee me a a ed ad = = = od ws = = = 2 8 = = 2 2 2 a = = I I 
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then 
return false; 
' 
Clear out the default field value if this is the first real value. 


if ..address eql -1 
then .address = 0; 


FP ee en | 


Wn—OwO0° 


wrap = fals 
leftmost = “tert bit; 


' 
If the starting bit is greater than the ending bit, allow field to wrap 


if .left_bit lss .right_bit 
then 


PO 


MIPIPIPOPINPPoPofnonopopopofe~roepoforny 
BASSIST 
—"OVODONOULSWN—OV” 


pt he 

leftmost = 23; 
wrap = true; 
end; 


WAWAWAAANAAAWAAAAANAIG 


PUPAE 


WO OONAULS WN COODNOUS 


Set field width(s) and set appropriate bits 
width = .leftmost - .right_bit + 1; 
(.address)<.right_bit, .width> = -1; 


NNO Oo 


WN SO OONAULSWN—OV0OnN 
AOOO 


if .wrap 
then (.address)<0, .left_bit+1> = -1; 


SHLSAF 


return true; 
1 end; 


o 
i ee cl ee ec ee ee eel ee ee ee ee ee ed ed 


WAAWWIW AAAI AWN 


Se Ge Se Ge Se Oe Ge Ge Ge Ge Se Be Ge Ge Se Ss Se Oe Oe Be ee SH Se Se Se See eee Sete te te tease 
Ol a a dd dd 
SNNOAOO 


POPMIPOPONSPoPoforononofnororfonons 
ODOwooNnNnNNAN 


no 


003c 00000 .ENTRY SET RANGE aan’ R2,R3,R4,R5 : 1282 
55 00000000" 00 3 000 MOVAB LEFT B : 
$ 18 A? : 0 BLBC SEE ORDA 1$ : 1333 
0c Ad aE Op MOVAB SECOND ARY “ACCESS, ADDRESS ; 1324 
53 08 AS 9 13 1$: MOVAB PRIMARY_ACCESS, ADDRESS : 1325 
65 iC at D 17 2$: MOVL $28(AP), "LEFT Bi : 1331 
4 $ D 1B VL —s LEFT git. ; 
17 4 01 0001 L R46, B : 
47 1A 
17 04 AS 01 CMPL RIGHT BIT, #23 : 1337 
41 1A BGTRU 6 ; 
FFFFFFFF © 8F 6 D1 CMP ADDRESS), #=1 > 1344 
if BNEG ; 
D CLRL (ADDRESS) : 1 5 
D4 3$ CLRL : 1 
50 4 00 MOVL  R4, LEFTMOST : 1348 


SSSSSSSOSSSOSSSOSOOSS 
@ 
oz 
470 
Coad 2 
€ 


UAF PARSE 
v04-000 


fou 


none 
e@ew 
3 


0 138% 99:31:19 VAX-11 Bliss-32 V4.0-7 


4 e 49 
set_range - set hourly restriction bits DLSKSVMGMASTER-LUAF  SRCSUAFPARSE 83204" (7) 


1 
1 
1 06 AS 00 9 MOVL  RIGHT_BIT, R1 ; 
2} 34 Di 3 CPL R4, RT : —_ 
$ 8 4 MOVL #23, LEFTMOST : 135 
1 0 4 MOVL. #1, WRAP + 135 
:-€ 48 4$ SUBL2 R1. RO : 1363 
0 D 4B INCL WIOTH : 
63 50 51 FFFFFFFF Hi F 94D INSV #1, R1, WIDTH, (ADDRESS) : 1365 
0) 2 i 096 BLBC WRAP, 5$ + 1367 
50 01 AG 909 MOVAB 1(R45, RO + 1368 
63 50 90 FFFFFFFF BF FO 0005p “a INSV a1, HO, RO, (ADDRESS) i eine 
o MBBS os. Eh wo _ 
04 0006C RET : 


3 Routine Size: 109 bytes, Routine Base: $CODES + 0918 
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ROUTINE VALUE: 


true => success 
false -> invalid value supplied 


FAR 


ooooo 


local 
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¥0%4-000 getcputim = get cpu time quota 1 ~300- 138% 96:37:33 DISKSVMSMASTER: CUAF .SRC UAFPARSE.B32:1" (8) 
85 73° 1 &sbttl ‘getcputim = get cpu time quota’ 
86 74 1 global rbut ine getcpetia . 
i f egin 
89 7 144 
90 7 ' 
4! FUNCTIONAL DESCRIPTION: 
93 ! Fill in the CPU time Limit in the proper field in RECBUF. 
99 INPUTS: 
37 none 
99 OUTPUTS: 
! none 
i 
i 
! 
! 
! 
le 
0 


delta_time : vector (2, long], ! system delta time temporary 
cpu_time, ' CPU time work variables 


remainder; 


builtin 
ediv; 


2 
2 
; 
! 
Convert ASCII to system delta time 
a not LibScvt_dtime (tokendsc, delta_time) 


im 


A.A AR PO PIPIPUPIPONPUPDD 2 2 OS OS SO 


patel 


WANN AWNAWAWAAAAW NAAN 


en 
return LIBSSIGNAL(UAF$_BADVALUE, 2, .tokenlen, .tokenptr); 

i] 

: Convert system delta time to a longword value which is in .01 sec. units 
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—OOONOUSWN "OO OONOULSWN—O0@n 


7 (ediv (Zref (-200000), delta_time, cpu_time, remainder) and psl$m_v) neq 0 
en 

return LIBSSIGNAL(UAF$_VALTOOBIG, 2, .tokenlen, .tokenptr); 
recbufCuaf$l_cputim] = (.cpu_time “ 1) + (if .remainder eql 0 then 0 else 1); 


true 
end; 


me ee ee me me a a ad a ed = = ws 2 = 3 = = = = = = — = 3 = oo = 2 2 = I 
me a et et a as 4 4 ts a sd as a a ss 2 td a) a ts 2 ss te 
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¥04~008 getcputim = get cpu time quota 1 ~Sep- 1984 98: 31 £38 DISK$V men TER: UAE” She UAF PARSE. 832" r © 3) 
003¢ ENTRY GETCPUTIM, Save R2,R3,R4,R5 : 1374 
5 990000006 ee MOVAB TOKENLEN, R : 
4 G : OV TOKEN NPTR, R& : 
’ bb suse sp’ + 1410 
000000006 F 1 PUSHAB TOKENDS : 
000000006 00 re 1 CALLS re. BSCVT_DTIME : 
OF E BLBS RO, : 
64 bp PUSHL  TOKENPTR + 1412 
7E F 3¢ 2 i MOVZUL TOKENLEN, -(SP) : 
000000006 BF DD 09 § PUSHL #UAF $_BADVALUE : 
53 52 6E FFFCF2CO ef 7B 00034 1$: EDIV. #=200000, DELTA_TIME, CPU_TIME, REMAINDER =; 1418 
0 dC 00030 MOVPSL : 
15 50 01 €1 0003F BBC #1, RO, 3$ : 
64 BD 0043 PUSHL TOKENPTR + 1420 
7E 65 3C 0004 MOVZWL TOKENLEN, -(SP) : 
02 DD 00048 PUSHL #2 : 
000000006 8F DD 0004A PUSHL #UAF$_VALTOOBIG : 
000000006 00 04 FB 90059 2$ CALLS #4, LIBSSIGNAL ; 
04 0005 RET § 
53 D5 00058 3$ TSTL § REMAINDER + 1422 
04 12 0005A BNEQ 4$ : 
50 D4 0005¢ CLRL = RO F 
03 11 0005 BRB : 
50 01 p0 90060 4$: MOVL #1, RO : 
000000006 00 6042 3E 00063 5$: MOVAW  (RO)CCPU_TIME], RECBUF +556 F 
50 01 00 00068 MOVL #1, RO + 1425 
04 0006E RET : 


3; Routine Size: 111 bytes, Routine Base: S$CODE$S + 0985 


UA eenee 18-Sep-19 4 0: 1] y 


Bliss-32 V4.0 
getdevice - get default device name 14-Sep-1984 D R 


X-11 one Page 52 
SKSVMSMASTER: CUAF .SRC JUAF PARSE .832; 1 (9) 


39 14 § 1 Zsbttl ‘getdevice - get default device name’ 
0 14 1 global routine getdevice = 

41 egin 

2§ re 


FUNCTIONAL DESCRIPTION: 
Fill in the default device name in RECBUF. 


“3 


WWW WWAWWINnororery 


OONOULS WI —OO° 


i 
i 
' 
re Will also append an ending colon if omitted. 
20 INPUTS: 
3g i none 
5 ! 
54 ' OUTPUTS: 
55 ! 
56 ! none 
57 ! 
58 ' ROUTINE VALUE: 
359 ! 
300 ! true -> update successful 
38¢ false => error in specification 
364 local 
365 strlen; 
309 


ai not getstring (recbufCuaf$t_defdev], uaf$s_defdev, counted_string) 
en 


Bt 


fwNn—O0e 


return false; 


Check to see that string has ending ':' 
and add one if not. 

If string length is zero, then field has been removed so 
there's no need for the check. 


WANA 


NNNN 


MIMI 


PAAAOSOMMAMNMMNMNU NINN SPP 


strlen = .(recbufCuaf$t_defdev])<0,8>; ! get string length 
if .strlen eql 0 
then 
return true; 
iy -(recbufCuaf$t_defdev] + .strlen)<0,8> neq colon 
en 


PESESSSISS 


begin 
oe -strlen geq uaf$s_defdev-1 
en 
r i todetdevds ste INVOEV és -tokenlen, .tokenptr); 


VSEORANVSSSVS ASO R IS SONSASUN SSeS OFEALS 


e 
(recbufCuaf$t_defdevJ+.strlen+1)< = colon; 
(recbutCuat$t_detdev])<0,8> = strlen + 1; 
end; 


ao 
return true; 
end; 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee 
ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee eee 
yo? oy oF ot ot ot ot ot at ot et et tt tt et 


COON NN NNN NOOO 


SESSSSESSE 
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H 13 
VOs-000" getdevice - get default device name 12: Ha 1984 9g $1 8 ST KSUMGMAS FERSCUAR SRC UAF PARSE .832; A we RS 


00c 000 SENTRY GETDEVICE, Save R2.R3 : 1427 ; 
53 000000006 00° oF on0 MOVAB, RECBUF S118, Rt — ; 
) an BH, hes ba| 
DD D PUSHL R : : 
00000000v 00 : Fe a0ar CALLS #3, GETSTRING : : 
A : 1 BLBC = RO. 3$ : : 
2 63 9A 991 MOV ZBL RE CBUF+116, STRLEN ; 1465 : 
1 13 0001C BEQL = 2 > 146 : 
3A 6342 4 oor CAPE RECBUF+116CSTRLEN], #58 + 1471 : 
1F 8 D1 00024 CMPL STRLEN, #31 + 1474 
1D 19 00027 BLSS «-'1$ : 
00000006 00 pp 00 9 PUSHL  TOKENPTR + 1476 
7E 000000006 9 3¢ 00 F MOV ZL TOKENLEN, -(SP) : 
000000006 8F 0D 000 PUSHL #UAF$_INVDEV ; 
000000006 00 4 FB 0056 CALLS #4, LIBSSIGNAL F 
01 A342 3A 4 00046 1$: MOVE #58, RECBUF+117CSTRLENI + 1477 
63 5 01 81 00048 ADDB3 #1, STRLEN, RECBUF+116 > 1478 
01 D0 Q004E 2$: MOVE #1, RO + 1480 
50 D4 ies 3$: CLRL RO + 1481 
04 00055 RET : 


; Routine Size: 86 bytes, Routine Base: SCODE$ + O09F4 


1b-5¢ -1984 02:21: VAX-11 Bliss-32 V4.0-74 P 4 
getdirectory - get default directory 1 ~3007 1382 96:34:33 DL SKSVMEMASTERSCUAE SRCSUAFPARSE..B3204°" (103 


WA 


SPERESSESS 


SOOO 0CO0000000 00000000 0000000000 
WR" O OONOAOUE WN S$ OOCONOUS 


DBNOVNEWN—"OOONOULSWN—"O0OO~ 
at ot td = I I I IOOOO 


ere RRP 2 2 2 2 OOO 
AruN—oo 4 
aE 
MEANS OONOAUE WN OOD NAUE WN HODDIOM 


FBGA UARRUNUNUNNN so ona Ea BOSODOO OOS 
oO 


a a ee ee ee ee ee 
fw 


a a ee ee ee ee ee ee ee ee ee ee ee 
FU ee ee ee eee l alah eal al ah sl wal eal eal eal al eal eal ala) al ee ee ee ee ee oe oP oP oF ot et oP at et oe et 


PRE REER ERR ES 
ey Se tt oe 


M—OOONOUEWN—O 


13 


1 &sbtti ‘get irectory - get default directory’ 
rec 


IMPLICIT INPUTS: 


TOKENLEN = Length of default directory string 
TOKENPTR = pointer to default directory string 


giobal routine getd ory = 

egin 

'+ 

' 

FUNCTIONAL DESCRIPTION: 

i This routine parses the user default Sirectery and places 
! it into the buffer if the form is correct. If delimiters 
are not present, they are added. 

; INPUTS: 

; none 

OUTPUTS: 

none 

i 

i 

i 

i 

i 


local BRACKETLESS; 
‘ 
Crank directory spec through tparse 


tparse_block pened) ser Ingent = ,tokenlen; 
tparse_block (t = .tokenptr; 


pa$l_stringptr 
rf not Lib$Stparse (tparse_block, dir_states, dir_keys) 
en 
return LIBSSIGNAL(UAF$_BADVALUE, 2, .tokenlen, .tokenptr); 


! Did the string have enclosing brackets (matching is guaranteed 
by the command parser) ?? 


q 
i 
: 
1 
BRACKETLESS = (.(.tokenptr)<0,8> neq 'C') and (.(.tokenptr)<0,8> neq ‘<"); 
1 

: Make sure that the string isn't too long 


if (((.tokenlen+1) geq uaf$s_defdir) and not .BRACKETLESS) 
or ((.tokenlen+3) geq uaf$s_defdir) 


then 
return LIBSSIGNAL(UAF$_INVSTR, 2, .tokenlen, .tokenptr); 


! 
Move the string into the UAF record 
if .BRACKETLESS then 
egin 
SvectorCrecbufCuafSt_defdird, 0;, byte] = .tokenlen + 2; 


- 
AACOMMUIMIVIVIA O 


WR" OODODNOULSW 


Ok kk dh 
D allel a lal at tat ed ak et et a 


getdirectory - get default directory 


39 


Dd ee 2 dd 1 tt 


DIDVITIVIVIVIIV 


GUS Bs BB EE 
WN "SO ODONOUFS WO 


vectortrecbufluefSt.. defdird. 


oe 


vector 
end 


in 
SirecbufCuafSt * bndad Pel &> = ;tokenlen; 
oetltse _defdirJ+1); 


ch$cop 
uaf 
end; 


return true; 


end; 
04 
00000000 
58 
53 


ths 


gs" 


G 


tot enlen, .token ete 
¢ recbuf 
$t_defdir 


efd 
récbut 


fe 
ua 


(.tokenlen, . 


s_defdir-1, foe 


0 
5A 00000000' 00 
59 000000006 00 
58 000000006 00 
57 000000006 00 
6A 69 
AA 88 
00000000' 00 
00000000" 00 
F8 AA 
00 93 
OF 0 
68 
7E 69 
02 
000000006 er 
52 8 
; 
8F 03 
> 
3 1 
1 33 
0 01 =A 
F 5 
Srl. 
hee 
3 


ck 


Sep- 
Sep- 


li,,byte) = 'C'; 
yafse. defdir]+2); 


1982 93:31:38 = BN 


X-11 
SK$V 


tokenlen+2;,- byte] = 'J'; 


7FC 00000 
9E 0000 
SE 4444 
9E B28 
9E 0001 
3¢ Boose 
dO ae 
9F 00025 
9F 0002B 
oF od 1 
FB 90084 
po 0998 
3¢ OB04b 
06 0045 

1 Beee 
B0 OB04B 
of Bee 
15 9008 
be 38 

1 C 
0g 5F 
be 
sie 
A ish 
: i 
p1 9807p 


~ 
bad 


Ww 
bad 


od 
oe 


GETDIRECTORY, Save R2,R3,R4,R5,R6,R7,R8,R9,-; 


s-32 V 


TPARSE process. R10 
OK = R9 


RECBUF +1 Ri 


TOKENLEN, ss RSE_BLOCK+8 
roxeuetR. TPARSE ~BLOCK+12 


DIR_KEY 
DIR-STATES 
gary BLOCK 


weEy 


TOK KENP 


TORENLEN, -(SP) 


POAFS_BADVALUE 


TOKENPTR, R2 
(R2), #91 

2$ 

R1 


RO 
(R2), #60 


R1, BRACKETLES 
KETLESS, R 


10 NLEN, ri 
RO. #63 
4 


8. BRACKETLESS 


BRACKETLESS. 5$ 


‘ 183 


ac 33 
TER: cUARe SRC UAF PARSE. 832: 79 ea 


1483 


1517 


1523 


1528 


1529 


kK 13 

UAF PARSE 16-Sep-1984 02:21:1 YAX=11 Bliss-32 V4.0-74 P 56 
¥04~000 getdirectory - get default directory 1 300-1382 99:513) DISKSVMSMASTER: CUAF .SRC UAFPARSE.832;1~ (10) 
§ BB 5$: PUSHR #*M<R1,R2> 3; 1531 

000000006 &F bb pus | Stars invste , 

000000006 00 4 FB ¢ 6$: CALLS me LIBSSIGNAL ; 
50 69 a 7$: MOVZWL TOKENLEN, RO + 1538 
1 6 d 97 MOVL  TOKENPTR, R : 1540 
1A 5 9A BLBC BRA KETLESS, 8$ ; 1336 

26 02 A 90 MOVAB 2(RO), R : 15 

& 56 90 000A1 MOVB Ré RECBUF +148 : 
01 A? 58 i 90 O00A4 MOVB. #91, RECBUF+149 : 1539 
3E 20 61 02 29 2c 6 " MOVCS RO, (R1), #32, #62, RECBUF+150 : 1541 
6746 5D «BF (90 O89 MOVB #93, RECBUF+148(R6] + 1542 
A 11 0008 BRB + 1536 
67 0 90 00087 8s: MOVB RO, RECBUF+148 + 1546 
3F 20 61 30 2c OOBA MOVCS RO. (R1), #32, #63, RECBUF+149 + 1548 
50 01 pO 000C1 98: MOVL #1, RO + 1551 
04 00064 RET > 1553 


; Routine Size: 197 bytes, Routine Base: S$CODES + OAGA 


AF PAR X-11 s-32 V4.0 
Vo4ur008" TERS CUAR. SRCSUAF PARSE .83251%" (115 


checkvalue = check UFD group and member value 1$-ep-1984 98: $1: Mi SK$V men 


: 1098 1 ¢ ] ebtst *checkvalue = check UFD group and member value’ 
: 1470 1 4 cout’ ne checkvalue = 
: 1471 1 pegin 
: Vang 1 builtin ap 
> 147 1 8 map ap: ret block {, byte); 
> 1474 1 if -apCtpaSl_ number 4 gtr {o'377" then return false else return true; 
> 1475 1560 end; 
0000 00000 CHECKVALUE: 
“ «WORD Save nothing 3; 1555 
QOOOOOFF &F 1¢ a 8 1 20008 CMPL ggAP) #25 3; 1559 
9 15 QOOOA BLEQ $ 3 
0 be 45 CLRL RO 3 
50 01 OOOF 1$:  -ROVL «so, RO : 
v4 00012 RET : 1560 


; Routine Size: 19 bytes, Routine Base: S$CODE$S + OBOF 


UAF PARSE 3 =1984 1: VAX=-11 Bliss-32 V4.0-7 
v04-00 checklength = check directory name Length if: $ep-1986 98: 3 33 ry KSVMSMASTER: CUAR she UAF PARSE .832; Pase 435 


— checklength = 
peg tin ap 
map ap: re? block {, byte 


X- 
SK 


: 1477 1561 | aaeeyt *checklength = check directory name Length' 

: pe: 1 ne 

3 147 1 

3; 1480 1 

: 1481 1 ° 

3 \A88 1 § if apltpaSl_ tokencnt | 39 then return false else return true; 
: 148 156 end; 


0000 00000 CHECKLENGTH: 
ORD Sa 
27 10 as D1 0000 CMPL 16 
g 15 000 BLEQ 1$ 
0 pe 00 RO 


QOOA 
50 01 00 00008 1$: MOVL #1, RO 
04 0000E R 


; Routine Size: 15 bytes, Routine Base: S$CODE$ + 0B22 


1368 


1567 


N 13 
UAF PARSE 16-Sep-1984 21: VAX-11 Bliss-32 V4.0-74 Page 59 
V04~008 getflags - get flag bits 127868=1 382 96:51:38 DLSKSVMGNASTERSCUAE SRCSUAFPARSE 83204" 3) 
> 1485 1568 1 &sbttl ‘getflags - get flag bits’ 3 
: 1088 1 $3 1 global rout ine gett tags = . : 
3; 14 1 9 egin : 
: 1488 157 : 
1290 1258 § i** 
: 1491 1304 ¢ { FUNCTIONAL DESCRIPTION: : 
: 1438 1326 Get login flag bit settings. ; 
: 1498 1378 i INPUTS: : 
3 14 137 ‘ 
oie io 
; 1499 13 ; t IMPLICIT INPUTS: 
; 1301 1384 : FLAG_TABLE - table of flag bit numbers and ascii names 
: 1208 1386 i QUTPUTS: 
3 1504 158 ‘ 
: 1208 1389 3 i _— 
: 1307 1390 { ROUTINE VALUE: 
: 1509 139¢ i true -> successful completion 
3 Vee 1337 false -> error in flag name 
: 1312 1595 2. 
a 1 Te 
: status, 
; 1515 1598 keyword_dsc : vector (2), 
> 1516 1599 no_ flag, 
: a 1690 an ! return from find_val 
: 1519 160 : 
: 1520 1808 ! 
3 1392 1oRe : Retrieve flag values as long as there are any present 
: 15 1606 2. 
3 1334 eit while cli$get_value (sd_flags, tokendsc) do 
: 15 6 1609 i Initialize keyword descriptor 
1858 1819 
: 1529 161¢ Repuerd_ dsc £0} = ,tokenlen; 
3; 1530 161 keyword_dsc (1) = .tokenptr; 
; 1332 1918 no_flag = false; 
: 153 161 
3: 1534 1819 ' If "NO" prefix specified, set no flag and adjust the 
: 13 5 1918 keyword descriptor to remove fhe ‘NO’ 
; 1 i it ch$eql (2, .mo_dsc C1), 2, .keyword_dsc (1)) 
: 3 en 
; 1539 16 § 4 begin 
; 1540 16 & keyword_dsc (0) = .keyword_dsc (0) - 2; 
3 1541 1624 4 keyword-dsc £9 = “keyword-dsc ab + gi 


14 
UAF PARSE 18-5e 1984 02:21: VAX-11 Bliss-32 V4.0-74 Pa 0 
v04-00 getflags - get flag bits 122868-1 382 96:51:38 DLSKSVMEMASTERSCUAE SRCSUAF PARSE .B3204°" (195 


3 3 tg 1625 4 no_flag = true; : 
; 154 16 § end; : 
: 1544 16 : 
; 1545 16 8 4 if (status = LibSlookup_key (keyword_dsc, flag_table, code)) : 
3] <$ 16 then . 
: \e¢ 1630 / ; 
; 1548 1631 ! valid flag, set bit ; 
; 1549 16 § : : 
; 1550 16 (recbufCuaf$l_flags])<.code,1> = not .no_flag : 
; 1551 1634 else : 
3 1226 1635 select .status of ; 
3 155 16 $ : 
: 1554 16 : : 
; 1555 1638 ! ambiguous keyword? i : 
; 1556 1639 : : 
: 1557 1640 ClibS_ambkey] : signal (cli$_abkeyw); , 
; 1558 1641 : : 
; 1559 1646 ! unrecognized keyword? ‘ 
; 1560 164 : : 
3; 1561 1644 Clib$S_unrkey] : signal (cli$_ivkeyw); ; 
; 1206 1645 ! : 
3; 156 1646 ! whatever, always return an error if we're in here . 
+ 1564 1647 : ; 
; 1565 1648 Calways) : return false; ‘ 
: 1566 1649 tes; ‘ 
: 1567 1650 ; 
: 1568 1651 § end; ‘ 
; 1569 1936 : 
: 1570 1653 2 return true; ‘ 
: 1571 1654 1 end; ‘ 


001C¢ 00000 .ENTRY GETFLAGS, Save R2,R3,R4 : 1569 
54 000000006 00 i 90008 OVA LIBSSIGNAL, R4 : 
000000006 85 SF 0000C 1$ PUSHAB TOKENDSC : 1607 
00000000' 00 9F 0001 PUSHAB SD_FLAGS ; 
000000006 0 08 FB ttt CALLS #2, CLISGET_VALUE : 
04 AE 000000006 00 i 2 MOVZWL TOKENLEN, KEYWORD_DSC : 1612 
08 AE 000000006 9 06 0 A OV. TOKENPTR, KEYWORD ~DSC+4 : 1613 
50 00000000' 09 D0 0 MOVL  NO~DSC+4, RO + 1620 
08 BE 6 : 8 cnPw {R0), akEYWORD_DSC+4 : 
04 AE C 4} SUBL 2 #2, KEYWORD_DSC + 1623 
08 ¢ 4 ADDL2 #2, KEYWORD"DSC+4 : 1 4 
5 D 49 MOVL #1, NO_FLAG + 1625 
5 D 0004C 28: PUSHL > 1628 
00000000' 00 9F aE PUSHAB : 
C AE OF PUSHAB KEYWORD DSC ; 
000000006 F 7 CALLS #3, LIBSLOOKUP_KEY : 
D f MOVL RO. STAT : 
E E 6 BLBC _—« STATUS, : 


14 

UAF PARSE base =1984 02:21: VAX=-11 Bliss-32 V 1 

yOsL 000 getflags - get flag bits 27808-1382 96:3} M8 DISKSVMSMASTER: cuak OC ACSUAF PARSE. B32. : ge 48) 
50 MCOML FLAG : 1633 

000000006 00 01 bE i sv n0: Cope, oo RECBUF +468 


000000006 8F 


Ww 
wn 
oO 
= 
v 
cc 


STATUS, #LIBS_AMBKEY 1640 


000000006 PUSHL 4 I$ Bee) CuAL 


COOOMDOMUDWOUNOUW 
SOTA mM OWPON 


MOWDOOWOoDS—-DWorvo~nwsF —-— 
= 
bad 
o 
= 
v 


i : 
F : 
51 9007 ; 
t} 7 ; 
4 pp f CALLS LTB$ : 
000000006 $F of cMBL errs’ PLiss- UNRKEY + 1644 
000000006 DD 000 PUSHL ac LI$_IVKEYW : 
4 FB CALLS LTB$SIGNAL F 
1 9 BRB : 164 
50 D0 00098 5$ MOVL #1, RO + 165 
04 0009 RET ; 
50 D4 0009C 6$ CLRL = RO + 1654 
04 0009 RET : 


; Routine Size: 159 bytes, Routine Base: S$CODE$ + 0831 
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UAF PARSE 16-Sep-1984 02:21: VAX-11 Bliss-32 V4.0-74 Pa 62 
V04~008 getpflags - get old per day login flags 122868218 4 99:51:38 DL SKSVMGHASTERSCUAE SRCSUAF PARSE 832099" (195 
5 } Z%sbttl ‘getpflags - _ old per cor aume flags' 


— 


lobal routine getpflags (qual_name) = 


' 
} Retrieve keywords as long as any are present 


while cli$get_value (.qual_name, tokendsc) do 


begin 
Sepuerd. dec £0} = .tokenlen; 


keyword_ds -tokenptr; 
no tlag7= 6; : 


> 6 ; 
74 6 8 : 
75 6 egin $ 
re 6 8 : 
57 65 '++ ; 
278 660 ! : 
of? 28) FUNCTIONAL DESCRIPTION: ; 
581 $8 : Get prime day login flag bit settings. 
obe 664 ! 
58 665 ' INPUTS: 
He $98 : 
#4 roth qual_name - address of descriptor for qualifier name 
587 669 ! IMPLICIT INPUTS: 
588 670 ‘ 
589 671 : OPFLAG TABLE - table of flag bit numbers and ascii names 
aa0 Ore } PRIMARY = true if getting primary day, false if secondary 
236 674 ! OUTPUTS: 
59 675 ‘ 
594 676 : none 
595 677 ! 
596 678 ' ROUTINE VALUE: 
597 679 ! 
598 680 ' true => successful completion 
599 681 } false -> error in flag name 
600 ore leo 
601 68 
O08 684 local 
60 685 status, 
604 686 keyword_dsc : vector (21, 
605 687 no_flag, 
6 688 code, ! return from find_val 
6 689 ientry; 
6 690 
6 691 
6 O36 
6 69 
6 694 
6 695 
6 one 
6 69 
° 698 
3 ; 
6 7 
6 7 
7 


ee ey tee ee 


PoPofPonofonoforory 
OWONOAUE WN OOONOUS WN O0ON 


me ee ee ee ec ee ee me ee ee ee aD ee ek a ed ad 2d ed = = 3 Sd 3 
mee ee ee ee eee ce ce ce ee me ee ee ee ee ee ee ee ee ed ed a ed ed ed wd ed od dd dd 


BHP PF WWIWIWIWININIAIAIWN NIAID IPIDIPUDPINININIPINYININPIPINPONINPOPNUNONYD 


99 
ga 
4 ! Test for presence of ‘NO'prefix. If present, adjust descriptor 
4 ! to remove it, and set no_flag. 
6 705 if ch$eql (2, .no_dsc [1], 2, .keyword dsc [1]) 
6 7 then 
6 7 
6 708 begin 
6 709 keyword_dsc £0} = ,keyword_dsc fo} - $i 
6 710 keyword_dsc [1] = .keyword_dsc [1] + 2; 
6 711 no_flag = -1; 


UAF PARSE 


1 
v04-000 getpflags - get old per day login flags 1 $3 


=1984 02:21:71 VAX-11 Bliss-32 V4.0-74 Page 
-1382 ¢: 1:2 DL EKSVMGMASTERSCUAE  SRCTUAFPARSE 832077 (14) 


v0 
<c 
oO 


end; 
A eae = LibSlookup_key (keyword dsc, opflag_table, code)) 


! 
valid flag, set bit 
case .code from uaf$k_disdialup to uaf$k_disnetwork of 
e 
fuatSk_disdialup2: 
begin 


if ngs oe 
then recbufCuaf$ lLup_access_p] 


b_dia 
oe recbufluaf$b_dialup_access_sJ 
end; 
aunt gtenetuerk Js 


not .no_flag 
not .no_flag; 


BREE EAN 
_ 


"OO DNAULS WN O ODONAULS WN —OVDONOUSWN—O 


| 

4 

4 

4 

4 egin 

4 if .primar 

4 then recbut not .no_flag 

4 else recbuf not .no_flag; 
end; 

tes 

e 

3 

; 

; 

3 

; 

2 

1 


puaTse.ronete_sceee Dy 
uaf$b_remote_access_s] 


e 
select .status of 
set 


; ambiguous keyword? 

Clib$_ambkey] : signal (cli$_abkeyw); 
unrecognized keyword? 

Clib$_unrkey] : signal (cliS_ivkeyw); 


SESSSCCCCTOOCO SESE S LETT POCO O Cee. 
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a a a ee a De ee a ed dd dd dd 
a a a ee ee ek a ed ed a ad dd ddd 
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ree: } whatever, always return an error if we're in here 
666 4 Calways] : return false; 

667 4 tes; 

668 5 

669 5 end; 

670 5 

671 5 return true; 

672 5 end; 


003¢C 00000 -ENTRY GETPFLAGS, Save R2,R3,R4,R5 1656 
55 000000006 9E MOVAB LIBSSIGNAL, R 
2 000000006 5 oy RECBUF +490, R4 
5 1694 


ACLS #2. CLISGET_VALUE 
000000006 00 CALLS +e Sl GET_VAL 


BRW 12$ 
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* 


» 2008 SUB # $ 
000000006 06 F : 1$: PUSHAB TOKENDSC 
mii 


00 


; Routine Size: 207 bytes. Routine Base: S$CODE$ + 0800 
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UAF PARSE 16-Sep-1984 02:21: VAX=11 Bliss-32 V4.0-74 Pp 
v04-000 getpflags - get old per day login flags 12286571382 96:51:38 DISKSVMSMASTER: CUAF .SRC UAF PARSE .B32: 1° (1 
4 AE 00 G 3¢ 00029 28: MOVZWL TOKENLEN, KEYWORD_DSC s 7 ; 
8s AE astddittdts 06 1 MOVL  TOKENPTR, KEYWORD-DSC+4 : 18 F 
D4 9 CLRL -NO_FLAG : 16 3 
50 00000000" D MOVL NO-DSC+4, RO 7 ; 
08 BE 2 4 CPW {R0), aKEYWCRD_DSC+4 : ; 
04 AE : C 4 SUBL2 #2, KEYWORD_DSC : 17 : 
08 AE ¢ 04 ADDLe #2, KEYWORD-DSC+4 : 17 ; 
5 1 CE 0005 MNEGL #1, NO_FLAG : 17 3 
F DD 09 3$ PUSHL § : 17 : 
00000000' 06 9F 0005 PUSHAB OPFLAG_TABLE : : 
0c At OF $028 PUSHAB Kp YWORD DSC : ; 
000000006 99 9 FB § CALLS #5, LIBSLOOKUP_KEY : 3 
5 g 09 006 MOVL RO, STATUS : ; 
37 53 £9 00068 BLBC STATUS, 10$ : ; 
1 00000000' 09 DO 9006 MOVL PRIMARY, R1 F 1733 : 
50 2 D2 000 MCOML NO_FLAG, RO + 1726 : 
01 01 6— CF 0007 CASEL CODE ai, + 1719 : 
0016 0004 ~ 00079 4s WORD 38-48,- ; : 
07 51 £9 00070 5$ BLBC ~=s«aR'1, 7S + 1723 ; 
64 18 00 50 FO 00080 INSV RO, #0, #24, RECBUF+490 + 1724 ; 
BC 11 00085 6$: BRB : : 
03 AG 18 00 50 FO 00087 7$: INSV RO, #0, #24, RECBUF+493 + 1725 : 
84 11 0008D BRB 1$ : 1719 : 
08 51 €9 OO0O8F 8$: BLBC =ssaR'1,_- 9S : 1729 ; 
06 AG 18 00 50 FO 00098 INSV RO, #0, #24, RECBUF+496 : 1730 ’ 
EB 11 0009: BRB $ : : 
09 AG 18 00 50 FO OO09A 9S: INSV RO, #0, #24, RECBUF+499 : 1731 : 
c 11 000A0 BRB : 1719 ; 
000000006 8F D1 90042 10$: CMPL =‘ STATUS, #LIBS_AMBKEY + 1740 ; 
09 12 000A9 BNEG : : 
000000006 8F DD 000AB PUSHL #CLIS$_ABKEYW : : 
65 91 FB 00081 CALLS #1, LIBSSIGNAL 3 : 
000000006 8F 3 0100084 11$:  CMPL STATUS, #LIBS$_UNRKEY : ; 
OF 12 00088 BNEG 13$ ; : 
000000006 8F DD 000 PUSHL #CLIS$_IVKEYW : : 
65 01 FB b99¢ CALLS #1, LYBSSIGNAL : : 
04 11 000C6 BRB 13$ : : 
50 01 DO 000C8 128:  MOVL #1, RO : : 
04 000CB RET F : 
50 04 OO0CC 13$:  CLRL RO ; : 
04 OO00CE RET : : 


ooovoo 
MEWN— 


i ROUTINE VALUE: 


true -> successful completion 
false => error in flag name 


AAAAOAAOO 


DUS 


14 
UAF PARSE 18-5e “1984 02:21: VAX-11 Bliss-32 V4.0-74 Pp 
v04-000 getrestrict - parse hourly restriction ranges 12=808= 1382 96:51:38 DLSKSVMSMASTERSLUAF  SRCTUAF PARSE 32-9" (193, 
674 1755 1 &sbttl ‘getrestrict - parse hourl tricti “ 
675 17 § 1 global routine getrestrict (qual_name) aac est 9 
i es 
678 8 lee 
679 60 ' 
oay 2 FUNCTIONAL DESCRIPTION: 
o8¢ 68 ! Parse hourly login restrictions for primary or secondary days 
ea 69 INPUTS: 
eB ef Qual_name - descriptor of qualifier name to use 
688 i IMPLICIT INPUTS: 
OUTPUTS: 
none 
' 
' 
' 
1 
' 


Initialize output values. 


VY VO 
ausss 


primary_access = 0; 
secondary_access = 0; 


' 
Fetch value List items and parse them. 


SANS 
Ssieae 


DONA UESWN “OC OONAULSWN OOO 


while true 
do 


begin 
if not cli$get_value (.qual_name, tokendsc) 
then exitloop; 


0000000000909 090909090909 INI NI NIN SIN NINIO 


VV VV NSS SSS 
NOU UN (OO ONAUEWN (OOD ONOULSWN—O” 


. 


rgytesg {pods fee t gted iy are = .tokenlen; 

tr arse_block(tpa$l_stringptr] = .tokenptr; 

if not” Lib$tparse Ttparse_ block, access_states, access_keys) 
then return LIBSSIGNAL(UAF$_BADVALUE, 2, .tokenlen, .tokenptr); 
end; 


— a a a od st 


' 
: Write the modified fields into the UAF record. 


if not .secondary 
then 


SScroncsse 


‘Gd CO Cd Od Cd Co G9 09 09 0D CO SV 


recbufluaf$b_batch_access_pJ = .primary_access; 
recbufluaf$b_local_access_pJ = .primary_access; 


De Se Se Se Se Se Se Sete Se Ge Se Se Be Fe Ge Se Se Se Ge Se Ge Fe Ss Se Ge Ss Ge Ge GF Ss Ge Ge FH SH GE Se SESE SESE Se Se Se SESE Seas Se Se Sse Sse Sse Sessese 
a a ee ee ee ea ee et a ed a ed ad ed ed dd Sd dd a dd sd 
ec a ce ee ee ce ee ed ee ce el ee ee ce ee ee ee ed ee ee ee ee ee ee ee et ee ce ce ce ce ee ee ee ee ce ee ee ce ce el ce ee ee ee ee ce ce ee ee ee ee ee eed 


SNS NNN 


——O00 
—Oo0e 


begin 
recbuftual Sb-patch.azcess.p p] = .primary_access; 


UAF PARSE 4 VAX-11 Bliss-32 V UA 
v04-00 getrestrict - parse hourly restriction ranges 1$-$ep-1964 9:8 3 DISKSVMSMASTER: UAE” OSRCSUAF PARSE. B32" 7 9 18 vC 
3; 1731 181 recbuf(Cuaf$b_dialup_access -primary_access; 
: \f ¢ ! 18 recbuttuafSb- “remote” access ) ‘primary access; 
3: 1734 1815 ese 
Ble. 1 18 begin 
: 17 $ 181 recbufCuaf$Sb_network_access_s] = .secondary_access; 
: 17 1818 recbufluaf$b_batch_access_s] = secondary. access; 
: 1738 1819 recbufluaf$b_local_access_s -secondary_access; 
; 1739 1820 recbufluaf$b_dialup_accesS_s] = .secondary_access; 
; 1740 1821 recbufluaf$b_remote_access_s] = -secondary_access; 
: 1741 18 ¢ end; 
; 108 i 
3 174 1824 true 
> 1744 1825 1 end; . 
003C 00000 ENTRY Se TReS TACT Save R2,R3,R4,R5 : 1756 
55 000000006 00 9€ 00002 MOVAB TOKEN NPTR. RS : 
54 00000000G 00 9€ 00009 MOVAB 10k KENLEN F 
53 00000000' 00 9€E 00010 MOVAB PRIMARY ites, R3 3 
52 000000006 00 9E 00017 MOVAB RECBUF+S s 
63 7C OOO1E CLRQ = PRIMARY he CCESS > 1785 
000000006 00 9F B88 0 1$: PUSHAB TOKENDST 3: 1794 
04 AC 0D 00026 PUSHL + iar L_NAME 3 
00000000G 00 9¢ FB 00029 CALLS #2, CLISGET_VALUE 3 
3 5 G 000 9 BLBC 3 
D4 A 64 C 0003 MOVZWL TOKENLEN, TPARSE_BLOCK+8 3: 1797 
D8 AS 65 00 00037 MOVL TOKENPTR, TPARSE_BLOCK+12 ; 1798 
00000000' 00 9F 0003B PUSHAB ACCESS_KEYS : 1799 
00000000' 00 9F 498 PUSHAB ACCESS_STATES 3 
cc a3 9F 00047 PUSHAB TPARSE BLOCK 3 
00000000G 00 0 Fe Q004A CALLS + ¥ LIBSTPARSE 3 
cc 50 €8 00051 BLBS 3 
65 bo 00054 PUSHL 19% cenp : 1800 
7E 64 3C 00056 MOVZWL TORENLEN, -(SP) : 
ge DD 00059 PUSHL : 
000000006 F DD 0005B PUSHL FUAFS BADVALUE 3 
000000006 00 04 FB 00061 CALLS #4, LIBSSIGNAL : 
04 Boe8 RET 3 
g 10 <A3 €E8 00069 2$: BLBS pecoupany 3$ : 1806 
g D B88 MOVL PRIMARY_ACCESS, RO : 1809 
62 18 F INSV RO, #0,7#26, RECBUF+47 F 
06 AS 18 0 28 F it INSV RO, #0, #24, RECBUF+47 : 1810 
0c A 13 0 0 F 078 INSV RO, #0, #24, RECBUF +48 5 et} 
\s A2 1 00 28 F 8 1 INSV RO, #0, #24, RECBUF +490 3: 1 \¢ 
1 18 00 3 + 38 7 pev Ree #0, #24, RECBUF +496 ; 13) 
50 06 AS OD O8F 3$: MOVL + he ARY_ACCESS, RO 3 1899 
03 A2 18 00 F 33 INSV RO, #0, #24, RECBUF +475 : 
09 OA 1 F INSV RO, #0, #24, RECBUF +481 3: 1818 
OF A + F OF INSV RO, #0, #24, Re RUE eae : 1819 
15 A 1 F AS INSV RO, #0, #24, RECBUF +493 : 1820 
1B OA 18 F 3 ae INSV RO, #0, #24, RECBUF+499 > 1821 
ie: Bi 4$: MOVL #1, R ; 1825 


UAF PARSE 1-86 ett H 96:31 21 VAX-11 Bliss-32 V reg 97 
v04-000 getrestrict = parse hourly restriction ranges 12 23eb19 4 15:21:2 DL eK SVMGRA TER: CAE OsRe UAF PARSE. B32" a ea ) 


04 00084 RET g 
; Routine Size: 181 bytes, Routine Base: S$CODES + OC9F 


UAF PARSE 1-$¢ mH 8h 99:51:19 VAX-11 Bliss-32 V 68 
v04-000 getprimedays - get primary day list 14-Sep-1984 15:21:2 Dts KSVMSMASTER: UAE” OsRe UAF PARSE. B32" 79 * (18) 


3: 174 1 %sbttl ‘getprimedays - get primary day List’ : 
; 1709 1 a 1 ney eine getprinedays’ = Big: : 
: 1748 1 8 : 
2 1749 1 : 
1 h89 ies) Si 
; He 183¢ 3 FUNCTIONAL DESCRIPTION: ; 
: P28 \3 : Get List of day considered prime days. : 
; 1756 1836 INPUTS: : 
HER HR Gone : 
; 1760 1840 IMPLICIT INPUTS: : 
: 1768 1sh6 PDFLAG_TABLE - table of flag bit numbers and ascii names : 
i 1764 1844 2 | OUTPUTS: : 
: 1765 1845 i ; 
fie ci gfe 1 
; 1768 1848 ROUTINE VALUE: : 
: 1770 1850 2! true -> successful completion ; 
3 ir 1851 false -> error in flag name ‘ 
: 1772 185¢ 2 i= 3 
3; 177 185 : 
Bee eet ER : 
; status, ; 
; 1278 1926 Reyuore. dee : vector C2], : 
3 ag. Z 
: 1778 1858 code, . ! return from find_val : 
3; 1779 1938 ientry; ; 
Te HES : 
: 17ee 1306 Retrieve keywords as long as they are present : 
> 1784 1864 2 while ~— value (sd_primedays, tokendsc) do : 
a 7 
: 1787 186? ney dsc £3: .tokenlen; 

3: 1788 1868 keyyord. ene = ,tokenptr; 

: 34 1869 flag = false; 

1 F91 187 

: 1798 1376 i Test for presence of the 'NO' prefix. If present, adjust the 

3 1 } a : descriptor to remove it, and set no_flag 

: 1795 1875 if — (2, .no_dsc (1), 2, .keyword_dse [1)) 

wm it oe, 

: 1798 1 28 4 ney dsc fo} = .keyword_dsc fo} ~ 3: 

3; 1799 1879 4 keyyord_ dsc = .keyword_dsc [1] + 2; 

: 1800 1880 lag = true; 

: 1301 1 ] —_ 

: 1802 1882 


UAF PAR E 16 Sep-1 1: VAX-11 Bliss=-32 V4.0-74 9 UA 
v04-0 008 getprimedays - get primary day List “320-198 96: 3 38 DISKSVMSMASTER: CUA. SRC JUAF PARSE. B32" 7 9 48) 


03 1883 4 i. “status = LibSlookup_key (keyword_dsc, pdflag_table, code)) 


aR 


“select status of 


; ambiguous keyword? 

Clib$_ambkey] : signal (cli$_abkeyw); 

unrecognized keyword? 

Clib$_unrkey] : signal (cliS_ivkeyw); 

whatever, always return an error if we're in here 


Calways] : return false; 
tes; 


et st c's a ss ss ss a td tt tt 


valid flag, set bit 
ge (Pecbutluatsb -Pprimedays])<.code,1> = .no_flag 
le 


Se Se Se Se Se Oe Se ee Se Se Se Se SeGe Se Se Se Se Ge Se ee Fe Ge Se Seas es 
Ok ae ee a dd dd ed od 
0.09 09 09 00 00 09.09 09 00 09 C9 09 C0 09 C9 C9 09 09 CD CD C9 CD CD OD 0000 
DONOULSWN—"ODOONAULSWN OO 
OWONAVUESWN —O OONAV EWN OOONOUS 


POPOPONPIPIPOPINOPUDY 2 2 SS SS SS SOOO 


ye true; 


001¢ 00000 .ENTRY GETPRIMEDAYS, Save R2,R3,R4 : 1827 
54 000000006 00 H 00002 HOVA LIBSSIGNAL, R4 : 
0C C2 00009 SUBL : 
000000006 00 SF 0000C 1S: PUSHAB TOKENDSC > 1864 
00000000' 00 9F 90012 PUSHAB SD _PRIMEDAYS : 
000000006 0 08 FB 0001 CALLS +e LISGET_VALUE : 
7 59 0001F BLBC =—sirRR : 
04 AE 000000006 00 3c 00022 MOVZ2WL TOKENLEN, KEYWORD_DSC + 1867 
08 AE 000000006 DO 0002A MOVL  TOKENPTR. KEYWORD-DSC+4 : 1868 
D4 00032 CLRL NO_FL AG : 1869 
50 00000000" 00 Dd 000 MOVL Nor DSC+4 > 1875 
08 BE 5 81 99 8 cMPW a aKEYEORD_ DSC+4 ; 
04 AE (3 0041 suBLg , KEYWORD_DSC : 1878 
08 AE CO 00045 ADDL KEYWORD “DSC +4 : 1879 
5 DO 00049 MOVL af. ; LAG” : 1880 
F BD 004C 28: PUSHL > 188 
00000090" 00 OF 6 aE PUSHAB PDFLAG TABLE : 
C AE OF PUSHAB KEYWORD DSC : 
000000006 99 Q F 7 CALLS + LIBSLOOKUP_ KEY F 
D F VL STA TUS : 
3 E BLBC no: SI : 
000000006 00 01 3 FO 4 INSV No. rURé. CODE. #1, RECBUF+514 : 1888 
000000006 8F a D1 F 3$: CMPL STATUS, #LIBS_AMBKEY > 1895 


UAF PARSE 
V04- getprimedays - get primary day List 


‘ 000000006 
000000006 Fr 

000000006 
64 


fe TITNW TNO 


50 


oVvo°0o-"oO-9oO "O— 
ee fo-won—-worn 


uw 
oOo 


; Routine Size: 156 bytes, Routine Base: S$CODE$ + 0054 


14 
1$-Se0-1984 93:54:33 Seb UWSMAS TERS CURE SaCSuarPaRse 83204" (159 


76 BNEQ 4$ 
7 PUSHL wCLIs ABKEYW 
7 CALLS #1, LYBS$SIGNAL 
L STATUS, #LIBS_UNRKEY 


BA PUSHL A#CLIS_IVKEYW : 
CALLS #1, LIBSSIGNAL : 
9 BRB : 1903 
95 5$: MOVL #1, RO 3; 1908 
9 RET : 
6$: CLRL RO : 1909 
98 RET : 


<c 
P=) 


Be Be Ge Be Be Se Be Se Se Ge Be Se Ge Se Se Se Ge Be Ge Ge Se Ge Ge Se Ge Ge FH Se Ge Se Se Ge Se Se Se Ge Se Se Se Se Se Se Se Se Se Sees se Se Se SeSe Se se esstseas 


A 
v04-00 


1 


RES PRRs 


WN —ODONOuUs 


co 
&- 


DAPI & & 
DONAOVULSWN-OOONOUS 


a 


SEeeereT= 


SSN NGS 
DONAOULSWN OO 


a kk a a et a a a a ek nk td ot td td od 2 = 2 SS a 2 SS a ot SS 


SSSPERSE 


DE BBE EEE EE FAWN NWAINWUIIPINIPIPINPINPININININ 2 2 OO OO ne 


DODODODOVOOVOOVO VOODOO DODODOOODODODODOOOODODODODOOOODODODODODODOOODODOOCDOODOODOOO 
SOD NOAUE WN SO OONOA NE WIN $ O OD NOAU EWN (9 ODNOUS AR" OOONOUS WN —O 


APEAAGAMIVII 


MWh 


SERS 


a ee ee ee ee ee ee ee ee ee 


$ 


M14 


16-Sep-1984 02:21: VAX=11 
getpriv - get process privileges 1 ~3ep-19 4 96:37:33 DISKSVM 
1 Ssbttl ‘getpriv - get process privileges’ 


Lobal routine getpriv (qual_name, privadr) = 
egin 


FUNCTIONAL DESCRIPTION: 


Process prvethene mask spe 
clear proper bits in privi 


INPUTS: 


qual_name - descriptor of qualifier name to use 
privadr = address to store privilege bits 


IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
true -> input processed successfull 


false => error in privilege specification 
SIDE EFFECTS: 
none 


cification and set or 
lege quadword in RECBUF. 


Loop through if this is a List and check all of the names. 
Set or clear appropriate bits depending on the 'NO' prefix. 


while cli$get_value (.qual_name, tokendsc) do 
begin 


select prv$setpriv (tokendsc, .privadr) of 
set 
Privilege name not found 
Corv$_invnam): 
réturn LIBSSIGNAL(UAF$_PRVNOTFND, 2, .tokenlen, .tokenptr); 


1 
! Privilege name not unique 


4.0-74 Page 71 
AE sec SUAF PARSE 83204" (17) 


N 14 
UAF PARSE 16-Sep-1984 02:21: VAX-11 Bliss-32 V4.0-74 P 7 
v04-000 getpriv = get process privileges 127808-138e 99:31:33 DI SKSVNSMASTERSLUAF  SRCSUAF PARSE .B3209 7" (1.95 


' 
tprv$_notunq): 


s 1 

: 1889 1968 q]: 

; + 1399 return LIBSSIGNAL(UAFS$_PRVNOTUNQ, 2, .tokenlen, .tokenptr); 
: 1898 1971 tes; 

: 189 1306 

3: 1894 197 end; 

: 1895 1974 

3; 1896 1975 return true: 

3; 1897 1976 1 end; 


003¢ 00000 .ENTRY GETPRIV, Save R2,R3,R4,R5 : 1911 
55 000000006 00 9E 00008 MOVAB TOKENDSC, R5 : 
54 000000006 00 9€ 0000 MOVAB TOKENLEN, R4 : 
53 000000006 09 9E 00010 MOVAB TOKENPTR. R3 : 
DD 90017 1$: PUSHL 5 : 1953 
04 AC DD 00019 PUSHL  QUAL_NAME F 
000000006 00 08 FB 9001¢ CALLS #2, CLISGET_VALUE : 
45 50 £9 000 BLBC ; 
08 AC DD 00026 PUSHL PRIVADR + 1956 
55 DD 00029 PUSHL F 
000000006 00 02 FB 000¢ CALLS #2, PRVSSETPRIV ; 
52 50 D0 000 MOVL RO, R : 
000000006 &F 52 D1 0003 CMPL  R2. #PRVS_INVNAM : 
OF 12 0003¢ BNEQ $ : 
63 DD 0003E PUSHL  TOKENPTR + 1963 
7E 64 3C 90040 MOVZWL TOKENLEN, -(SP) ; 
02 DD 0004 PUSHL # ; 
000000006 8F DD 00045 PUSHL  #UAF$_PRVNOTFND : 
16 11 00048 BRB : 
000000006 8F 52 D1 0004D 28: CMPL = R2, #PRV$_NOTUNQ : 1968 
C1 12 00054 BNEQ 1$ : 
63 BD 0056 PUSHL  TOKENPTR : 1969 
7E 64 3C 00058 MOVZWL TOKENLEN, -(SP) : 
02 DD 00058 PUSHL @# : 
000000006 8F DD 9005p PUSHL #UAF$_PRVNOTUNQ : 
000000006 00 04 FB 00063 3$: CALLS #4, LIBSSIGNAL ; 
04 0006A RET : 
50 01 DO 0006B 43: MOVL #1, RO : 1975 
04 0006E RET : 1976 


; Routine Size: 111 bytes, Routine Base: S$CODES + ODFO 
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UAF PARSE 
vOuL008 


Sesese 


MEW —OOONAULSWN"OOONOu 


OOOOOOOCVDOVOOVOOOOOOOO 
MOPMTINONR 3 3 1 OO 


MM 


Se Se Se Oe Fe Se Oe Ge Fe Se Se Se Ss Se Se Se HSE Se Se Se Se Se Se Se Sse Se Sete Ssessese 
mt at a a a — =o 2 os = ds 2 so + a a 1 a tt 


woooov0o 


Wwrornond 
—ODOnNO 


; Routine Size: 


15 
getuic = get user identification code 18-00-1984 96:51:38 ; 


0000 00000 
7E 04 ORNe 
000000006 00 9F 00 
000000006 9F QOOOA 
00000000v 00 FB 00 19 
1D E 1 
8 si 4 43 D 1A 
7E 000000006 C 000 9 
DD 8 
00000000G 8F OD 9 
000000006 00 4 fe 09 F 
50 01 00 18: 
4 0003A 


59 bytes, Routine Base: S$CODE$S + OESF 


AX-11 Blis 
ISKSVMSMASTER: CUAF 


1977 1 &sbttl ‘getuic - get user identification code’ 
1378 propas rhatine ge ve = 

ia g Fe 

ig is 

19 § FUNCTIONAL DESCRIPTION: 

19 5 | Process UIC specification 

19 ; INPUTS: 

Ba 

1991 OUTPUTS: 

1988 | none 

1999 ROUTINE VALUE: 

1997 i none 

1998 l== 

1333 

2001 i Parse UIC and return error if invalid. 

$o08 } Do not allow wild card group or member numbers 
2004 

2005 if not parse vic (recbufCuaf$w arp. recbufCuaf$w_mem], false) 
$008 then return CIBSSIGNAL(UAF$_UITERR, 2, .tokenlen, .tokenptr); 
$008 true 

2009 1 end; 


pa oS A Save nothing 
eee as 

> eg 8 

#35, PARSE_UIC 


TOKENPTR 
TOKENLEN, -(SP) 


s 
MUAFS_UICERR 
#4, LIBSSIGNAL 


#1, RO 


Liss-32 V4.0 
R 


-74 Page 73 
OSRCTUAFPARSE 832047 (18) 


2006 


2009 


ST 


15 
UAF PARSE 18-36 1984 02:21: VAX-11 Bliss-32 V4.0-74 Pa 74 
V06~000 parse_uic = obtain UIC group and member 1 73007138 96:51:38 DL SKSVMSMASTERSCUAE SRCSUAFPARSE 83209" (193 


; 1933 010 1 %sbttl ‘parse_uic - obtain UIC group and member’ 

; 1934 011 1 global routine parse_uic (retgrp, retmem, allow wild) = 
ME ig g Fest 

fs}: 

: 1939 O16 i FUNCTIONAL DESCRIPTION: 

: 1940 1 ! 

3; 1941 018 ' Routine to parse and validate a UIC or directory string. 
: 1308 812 The UIC is returned as group and member elements. 

: 1944 021 i INPUTS: 

3; 1945 § ! 

; 1946 0 ' RETGRP - address of a word to receive the group number 
3 1947 024 ! RETMEM - address of a word to receive the member number 
§ 1208 8 2 ALLOW_WILD - TRUE => allow wild card group/member numbers 
: 1950 02? 2 | IMPLICIT INPUTS: 

: 1951 028 ! } 

3 1326 $08 TOKENPTR = address of first character past delimiter 
: 1954 2031 2 | OUTPUTS: 

; 1955 soRg ! 

3; 1956 203 : RETGRP and RETMEM receive group and member numbers if 
5 ib ed 4 soee no errors are encountered. 

; 1959 036 ! IMPLICIT OUTPUTS: 

id ae the 

; 1368 2040 | ROUTINE VAUE: 

> 1965 2043 i true -> no errors found 

; 1306 Spek false -> error in UIC specification 

; 1968 045 : | SIDE EFFECTS: 

: 1970 2047 2! None 

: 1992 $009 3 

; 1978 2050 2! 

3 1976 2051 ! Crank UIC through tparse 

; 1975 B26 ! 

3: 197 05 tparse_block ptpast stringent) = ,tokenlen; 

; 4a 4 p2e tparse_block [tpa$l_stringptr] = .tokenptr; 

: 1979 B38 if not Lib$Stparse (tparse_block, uic_states, uic_keys) 

:; 1980 b3 then return false; 

; 1981 058 f .converted_uic<00,16> gtru uic$k_wild_member 

3 1986 059 or .converted_uic<16,16> gtru uicS$k_wild_group 

3; 198 584 then return false; 

3 1984 1 f not .allow_wild 

3 135? 808 then 

3; 19 if .converted_uic<00,16> eqlu uicSk_wild_member 

3; 1987 bee or .converted_uic<16,16> eqlu uic$k_wild_group 

; 1358 392 then return false; 


UAF PARSE 16 13 -1984 1: X-11 Bliss-32 V4.0-74 75 

v04-000 parse_uic = obtain UIC group and member ~Sep-1 38 96 5 £3 Be SKSVMEN STER: CUAR” SRC UAF PARSE. B32" - * (19) 
1990 067 ! 

3 133) 089 UIC was successfully parsed. Return correct data, plus true indicaton. 

: 1398 3 : 

; 1994 071 (.retgrp)<0,16> = .converted_uic<16,16>; 

> 1995 Oe (.retmem)<0,16> = .converted-uic<0, 16>; 

3; 1996 07 return true: 

: 1997 074 1 end; 


; Routine Size: 


94 bytes, 


0004 00000 .ENTRY PARSE UIC, yfve R2 : 2011 
52 00000000' 00 3 90008 OVAB  CONVERTE 2 ; 
E4 Ag 000000006 00 3¢ 0000 MOVZWL SORENL ENE “YpARSE _BLOCK+8 : 2053 
E8 A2 000000006 00 06 00011 VL TOKENPTR, TPARSE~BLOCK+12 + 2054 
00000000' 00 9F 00019 PUSHAB UIC_KEYS + 2056 
00000000" 00 9F 0001 PUSHAB UIC™STATES : 
DC A2 9F 00025 PUSHAB TPARSE BLOCK : 
000000006 90 93 FB 00 é CALLS H+ IBSTPARSE : 
$3 02 Ag 900 2 MOVZWL CONVERTED_UIC+2, RO + 2059 
we as) : 
OE 0c AC €E8 00030 BLBS ALLOW WILD + 2061 
FFFF 8F 66 a one) er or Event D Pores #65535 : 2063 
3FFF OBE 30 8} 90048 CHP RO. #16383 : 2064 
06 BC 50 BO OO004F 1$: MOVW RO, @RETGRP : 2071 
08 BC 62 80 00055 MOVW § CONVERTED_UIC, @RETMEM : 207 
50 01 BO 90047 OVL #1, RO ; 207 
50 04 00058 2$: CLRL = RO : 2074 
04 0005p RET : 


Routine Base: 


SCODES + OE9A 
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Vv04-000 parse_wild - parse wildcarded user specificatio 1 730071382 96:57:33 DISKSVMSMASTER: CUAF .SRC UAFPARSE.B3204%" (208 
; 1999 075 1 Xsbttl ‘parse_wild - parse wildcarded user specification’ ; 
: Bey $78 1 Lopat rout ind parsewild (desc addr .nulldetautt) - = ; 
: $00 078 . : 
; 200 079 14+ $ 
: 2004 080 ' ; 
: 44 +e FUNCTIONAL DESCRIPTION: $ 
: 2007 O88 i Parse one of six methods by which User Authorization File ; 
; 2008 084 ! records = be specified. This routine defines boolean - 
: ON8 +H variables for input to the WILD_USER routine. ; 
; O11 O87 INPUTS: : 
: $18 089 i DESCADDR Address of the token string descriptor : 
: sore a4 NULLDEF AULT TRUE => A null user specification defaults to * 
3 2016 g09¢ IMPLICIT INPUTS: 
; gots $098 2 ! The parsing variables NEXTTOKEN, TOKENLEN, and TOKENPTR are modified. 
: 2020 096 2 | OUTPUTS: 
; 2021 097 ! 
3 $05¢ 2098 2! none 
; 20 2099 2! 
: $ose 5109 ; IMPLICIT OUTPUTS: 
; 2036 $108 § The following boolean variables are decided: 
: $058 104 2 i UIC_FLAG = UIC form (instead of username) 
3; 2029 105 2! GRP_WILD = Group wild card (implies UIC_FLAG) 
; 2030 2106 2! MEM_WILD - Member wild card (implies UIC_FLAG) 
: son, $102 2 } STR_WILD = all users alphabetically (impTies NOT UIC_FLAG) 
3 2035 444 : RECBUF = The appropriate keys are initialized 
; 2035 gti $ ROUTINE VALUE: 
: $039 $118 i If the ones does not follow one of the six methods the routine 
3; 2038 2114 ! returns FALSE. The outputs are meaningful only when the value 
: 073 gig returned is TRUE. 
> 2061 17 2 ine 
: $008 118 
: bee 199 : Identify the next token in the command buffer. 
: 046 1 ; 
3; 204 1 if not cli$present (.desc_addr) or 
3: 2048 124 not cli$get_value (.desc_addr, tokendsc) or 
; eh . 5 , -tokenlen eql 0 
3 en 
3 et } ; y not .nulldefault 
5 en 
; 038 ! ; return LIBSSIGNAL (UAF$_NOUSERSPEC) 
$ se 
; 2055 131 begin 


2V 77 
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04-000 12 33-1984 93:31:38 D1 SKSVMSNASTERSCUAR SRCSUAFPARSE .832-4°% (20) 


V04= parse_wild = parse wildcarded user specificatio 14- 

; 20 1 uic_flag = false; $ 
3 037 1 5 orprwita = false; $ 
; 2058 134 em_wild = false; ‘ 
>; 2059 135 str_wild = true; : 
; 2060 1 $ match_token = ‘*' F 
; 2061 1 match_tokenlen = 1; F 
3 ed 138 return true; 3 
; 206 139 en $ 
3 2064 140 else $ 
; 2065 141 begin $ 
; 2066 1%6 tokenlen = .tokenlen; 3 
; 2067 14 tokenptr = .tokenptr; : 
; 2068 144 end; $ 
; 2069 145 3 
; 2070 146 : 
; 2071 147 4 3 
3 oF 133 Decide whether a UIC or a Username form was used. : 
3; 2074 150 3 
3; 2075 2151 if .(.tokenptr)<0,8> eql ‘C' 3 
3; 2076 $128 then : 
3; 2077 15 begin : 
; 2078 154 3 
; 2079 155 if not parse_wild_uic ( .tokenlen, .tokenptr ) : 
; 2080 156 then 3 
: isd $12¢ return LIBSSIGNAL‘UAF$_INVUSERSPEC, 2, .tokenlen, .tokenptr); : 
3; 208 3159 end s 
3; 2084 160 else F 
3; 2085 2161 begin ; 
; soe $108 uic_ lag = false; : 
3; 2087 16 gorp_wild = false; : 
3; 2088 2164 3 mem_wild = false; 

3; 2089 165 

3; 2090 166 ! 

3; 2091 167 ! Decide whether or not the Username is wildcarded. 

3 O3¢ $168 ! 

3; 209 169 

3 O98 $100 if not ch$fail (ch$find_ch (.tokenlen, .tokenptr, ‘*')) 

; or 

; $096 312 not ch$fail (ch$find_ch (.tokenlen, .tokenptr, ‘%')) 

3; 2097 17 ! R 

3; 2098 2174 ! -by_account 

3; 2099 175 en 

; 2100 176 4 begin 

3 2101 177 4 match_tokenlen = .tokenlen; 

: 106 178 4 ch$move (.tokenlen, .tokenptr, match_token); 

3; 210 179 4 str_wild = true; 

; 138 180 4 end 

3; 2105 181 3 else 

3; 2106 1 ; 4 begin 

: 2107 1 & str_wild = false; 

: 21 1 & ch$copy (.tokenlen, .tokenptr, %char (' °) 

3 2109 185 4 uaf$s_username, recbufCuaf$t_username)); 

: 2110 1 end; 

3 2111 1 end; 

3 2112 1 
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s sii? 189 true $ 

3 2114 190 end; 3 

OFFC 00000 ENTRY PARSE WILD, Save R2,R3,R4,R5,R6,R7,R8,R9,- ; 2076 ; 

58 000000006 00 9€ 0000 MOVAB UIC FLAG, R11 : : 

Rais 3 Hi Bey GBs ie 7 : 

SOR Oo | ee eo ‘2as| | 

000000006 00 91 FB $0 1 CALLS #1, CLISPRESENT : 3 

17 0 : 0028 LBC ~—S—s«aRO,_:*‘1 : ; 

000000006 00 SF 00028 PUSHAB TOKENDSC + 2126 ; 

06 AC ODD 00 1 PUSHL DESC_ADDR : ; 

000000006 00 08 FB 0034 CALLS #2, ELISGET_VALUE ; ; 

04 50 £9 00038 BLBC ~=_—«aRO, 1 : F 

68 85 0003E TSTW  _TOKENLEN + 2125 : 

2F iF 00040 BNEQ 3$ : ; 

OA 08 AC E 90042 1$: BLBS | NULLDEFAULT, 2$ : 2127 : 

000000006 8F DD 0004 PUSHL #UAF$ _NOUSERSPEC : 2129 : 

6A 01 FB b004¢ CALLS #1, LYBS$SIGNAL : 3 

04 0004F RET + 2131 : 

6B D4 00050 2s: CLRL -UIC_FLAG : 313¢ ; 

000000006 00 D4 90038 CLRL  GRPTWILD : 313 3 

000000006 00 D4 0005 CLRL MEMIWILD + 2134 : 

69 01 DO 0005E MOVL #1, STR WILD > 2135 : 

000000006 00 2A 00 00061 MOVL #42, MATCH_TOKEN : 2136 F 

000000006 00 01 DO 90068 MOVL #1, MATCH_TOKENLEN : 2137 : 

79 i} 006F BRB : 2138 : 

57 68 3C 00071 3$: MOVZWL TOKENLEN, R7 > 2155 ; 

56 000000006 00 00 00074 OVL  TOKENPTR, R6 > 2151 ; 

58 CBF 66 91 00078 CMPBs«(R6), #91 : F 

¢3 12 0007F NEQ ; : 

6 DD 90081 PUSHL R6 > 2155 : 

57 DD 00083 PUSHL R7 ; : 

00000000v 00 08 FB 0085 CALLS #2, PARSE_WILD_UIC ; : 

58 E8 0008C BLBS 2 ; : 

000000006 00 bo O08F PUSHL  TOKENPTR > 2157 : 

7E 68 3C 00095 MOVZWL TOKENLEN, -(SP) : : 

2 DD 0098 PUSHL # : : 

000000006 8F DD 0009A PUSHL #UAF$_INVUSERSPEC : : 

6A 4 §B S0A0 CALLS #4, LIBSSIGNAL : : 

04 A ET ; 3 

68 D4 OO0A4 4S: CLRL UIC_FLAG : 3162 : 

00000006 D4 000A6 CLRL  GRPTWILD : 216 : 

00000006 00 p4 OOA CLRL MEM-WILD : 194 : 

66 57 A 3A 0008 LOCC #427 R7, (RO) : 2170 : 

¢ 12 0008 BNEQ 5$ 5 3 

D4 CLAL ss R11 : 3 

1 3 BA 5$: TSTL R1 . g 

: BC BNEQ is ; : 

66 57 3A OBE LOCC #37, R7, (R6) > 2172 : 

2 12 000C¢ BNEQ 68 ; 
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8 C4 CLRL R1 : 
RABE Gg : 
000000006 00 7 CA 7$: MOVL_ 7, MATCH_TOKENLEN : 2177 
000000006 00 66 24 . D1 MOVC3 R7, (R6), MATCH_TOKEN : 178 
69 pS oY 09 MOVL #1, STR_WILD 3: 217 
$5 | 4 OOODE 8S: RRL. STR WILD : $183 
20 20 7 C e) 3 MOVCS R7, (R6), #32, #32, RECBUF+4 : 185 
© s00000006 BY 0 OOE 3 
50 OOEA 9$: MOVL #1, RO 3; 2190 
B? OO0ED RET 5 


; Routine Size: 238 bytes, Routine Base: SCODE$ + OEF8 


UAF PARSE 
04000 


PIPIPIPIPIPIPIPINPINIPIPIPIPIPINOPINIPININPIPINIPIPIPIPUNONNINOPUNoNonofrofnononng 


PROPIPIPIPININIPINIMPNININIMNINININD 


ed od od td SS 2d 9 2d 2) 2 22 9 2 SS 3 2 SS 2 2 SS ts SS 2 as Ls SF St SS 


A.A AAI POPOPOPONPIPONINUNY SS SS 


SO APARAOCOUIMNMAUNN ES BEBE RRR EWU 
ISS SSF IS SSVEV TNS SENSES LESS SUEENSSSRVUS ORNS Sa ~e. 


oo tS SS SY YH HH HY 
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1 Zsbttl 'parse_wild_uic = parse wildcarded UIC’ 
1 og routine parse_wild_uic ( strlen, strptr ) = 
egin 
le+ 
i FUNCTIONAL DESCRIPTION: 
r Author ation File 


utine defines boolean 
ER routine. 


Parse the uic methods by which 

records any be specified. Thi 

variables for input to the WIL 
INPUTS: 


STRLEN = Length of UIC string 
STRPTR = Address of UIC string 


IMPLICIT INPUTS: 


Us 
r 


e 
$s ro 
D_US 


OUTPUTS: 


True = success 
False - failure 


i 

4 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

' 

' 

IMPLICIT OUTPUTS: 
The following boolean variables are decided: 
i] 
i 
' 
i] 
i 
i 
i 
i 
' 
' 
' 
1 
i 
le 


- UIC form (instead of username) 
GRP_WILD - Group wild card (implies UIC_FLAG) 


RECBUF - The appropriate keys are initialized 
' ROUTINE VALUE: 


If the antes does not follow one of the six methods the routine 
returns FALSE. The outputs are meaningful only when the value 
returned is TRUE. 


rue; 


uic_flag =t 
= false; 


str_wil 


i 
: Crank UIC through tparse 


tparse_block tpa$l_stringcnt] = .strlen; 
tparse_block ([tpa$l_stringptr] = .strptr; 


if not LibStparse (tparse_block, uic_states, uic_keys) 
en 
return false ; 


RIPIPINIPIPONNYIAMINININININYD 
POMPIMPOPONINPONONYNY 
ye at et et et ee ek hb ob ab aah area 
UPWN 0 CONOULS WN — 
PRIPPIPIPIPOPIPIPYPINPININININIPIPININININPINININININPININININININY 
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; 2173 4 ' ; 
; \fe é3 ; Decide whether or not the Group subfield is wildcarded. ; 
; 2176 2 if .converted_uic<16,16> eql uic$k_wild_group : 
: 2177 26 then ; 
>; 2178 begin : 
3: 2179 54 grp ~~ = true; : 
; 2180 55 recbufCuaf$w_grp] = 0; 3 
3: 2181 2$ end ; 
3 186 5 : 
; 218 58 else $ 
> 2184 59 begin : 
>: 2185 60 grp_wild = false; : 
; 2186 61 recbufCuaf$w_grp) = -converted_uic<16,16>; : 
3: 2187 6¢ end; : 
: 2188 6 : 
3 2189 64 ' : 
: ib ; 22 : Decide whether or not the Member subfield is wildcarded. : 
: 219 67 3 
3 198 2268 if .converted_uic<0,16> eql uicSk_wild_member F 
3 2194 2269 then F 
3: 2195 ssiv begin : 
3 2196 271 mem_wild = true; . 
3 2197 $si¢ ; 
; 2198 ss? : 3 : : 
3; 2199 2274 ! Whether it is wildcarded or not this subfield is initialized : 
; 2200 2275 ! for the wildcard processor. 3 
; 2201 2276 : 3 
: 5508 ssit : 
3; 220 78 recbufCuaf$w_mem] = 0; : 
3 2204 279 en 3 
; 2205 280 else : 
; 2206 28) begin 3 
3; 2207 ses mem_ wild = false; : 
3; 2208 228 recbufCuaf$w_mem) = .converted_uic<0,16>; : 
; 2209 284 end; : 
: 59 285 3 
3 2211 286 return true ; 3 
3 2212 2287 1 end ; : 
003C 00000 eENTRY PARSE _WILD yic. Save R2,R3,R4,R5 3: 2192 ; 
55 000000006 00 9€ 0000 MOVAB MEM_WILD, R 3 3 
2% 00000006 00 9€ 00 MOVAB GRP WILD, R4 : F 
3 si Bee 0 9E 00 19 MOVAB RECBUF+ R 3 : 
35 000 3 001 MOVAB CONVERTED _UIC, R2 : : 
000000006 0 1 D 3 MOVL #i, UIC_FCA 3 23 : 
000000006 00 4 CLRL «= STR_ WIL ; ; 
ES A2 4 A D MOva STRCEN, TPARSE_BLOCK+8 3 2241 : 
900008 e 8 oF PUSHAB UIC_KEYS ; 2244 3 
000° F PUSHAB UIC STATES 3 : 
DC Ad OF C PUSHAB TPARSE BLOCK 3 : 
000000006 00 05 FB F CALLS #3, LIBSTPARSE : : 
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5 5 ug BLBC = RO, 58 : 
02 A2 3¢ 0004 MOVZWL C VERTED UIC+2, RO + 2251 
3FFF OF ; i = CMP RO, #16383 F 
64 1 0 : MOVL #1, GRP_WILD > 2254 
3 B4 7 CLRW Re CBUF +38 + 2255 
1 9 BRB 2 3 51 
4 04 B 1$: CLRL GRP_WIL + 2260 
$0 ; Re 6 2$ NOV ZL é aventen ule RO : $3 
FFFF BF 8 a1 CMPW ORO, pesess ; 
08 if} 00 BNEQ : 
65 D A MOVL #1, MEM_WILD 8 $37) 
FE A3 B4 9060 CLRW  RECBUF+36 : 2278 
06 11 00070 BRB 4$ > 2268 
65 D4 00072 3$ CLRL MEM_WILD : 282 
FE AB 50 BO 00074 MOVW RO, RECBUF +36 > 228 
50 01 0 00078 4$ MOVL #1. RO > 2286 
04 00078 RET F 
50 D4 0007C S$: CLRL ~—RO t 2287 
04 0007E RET : 


; Routine Size: 127 bytes, Routine Base: SCODE$ + OFE6 
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. 
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. 
° 
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s 
. 
a 
. 
oe 
. 
° 
. 
° 
o 
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o 
o 
> 
e 
. 
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. 
a 
. 
e 
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ge 1 Xsbttl getstring = get string from input’ 
1 global routine getstring (addr, maxsize, type) = 
» egin 


9 
9 
had 


: FUNCTIONAL DESCRIPTION: 


Oo 


This routine reads a string variable and stores it as 
a blank filled or counted ore in the field supplied. 
The first character is checked to see if it is a quote 
or double quote and if so, a different terminator 
set is used so that embedded blanks may be contained 
in the string. 

| 


INPUTS: 


ADDR = address to store yrne 
MAXSIZE = size of field in which string will be stored. 
If this is a counted string, the maximum input 
acceptable is MAXSIZE - 
TYPE = string type, either COUNTED_STRING or FILLED_STRING 


WWW NOPUNPONUPUNIPY SS SS SS 


' 

i 

i 

i 

{ IMPLICIT INPUTS: 
; none 
i OUTPUTS: 

; none 
t IMPLICIT OUTPUTS: 
none 

i ROUTINE VALUE: 

i 
i. 


true => string inserted successfully 
false => string too long 


SIDE EFFECTS: 
none 


PIPIPIPIPIPIPINININININININININININPININININPINPINPONINPINIPPoPofponofnuonyd 


PUPPIES Se BB EE = SSE 


oa AAO v4 
IAPIIITUNININININNIN 3 3 2 2 OS St "OOOO OOOOCCONO 


WOOO 
BRUSISSSNO rs Uy “OOWNANE WOODS Ue AR Oo Dee 


ANA AAA AN ANNA AAA AANA AAI AAAI AIA AAAI 


MINIM 


if .type eql counted_string 
then 

maxsize = .maxsize - 1; 
if .tokenlen gtr .maxsize 
then 


= 


Fwn-O0e@ 


re 


MIMITUITINMININOND: 


turn 

LIBSSIGNAL(UAF$_INVSTR, 2, .tokenlen, .tokenptr); 
if .type eql counted_string 
then 


Be Be Oe Se Be Se Se Se Se Se Se Se Se Se Se Se Ge Ge Ge Se Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Os Oe Se Se Se Se SF Se Se See See Se Se Se Se Sse Se Se Se sstses 
RPQPPIPDPDNPPINYDNDNIPDPNIPIPIPINININININININININIPININODINIPIPIPIPIPUPUDINPINPIPYIPIPUPININPINIPYIPOPOPOPoNyfrofnornyd 


POPOROPOROROROROnOROnOROnonononononononononononononononononononononononorononononononony 


VO 
SoS 


Rete Se Se Ge Se Se Se Se Se Se Se Se Se Se SHS Se Se SH Se Se Se Se Se Se Se Se Se Se Se Se eee se Se ee Se Se Se Se Se Se teas 
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: 2271 45 begin 
3 a #8 (.addr)<0,8> = .tokenlen; 
: 227 4 ch$copy (.tokenlen, .tokenptr, %char (blank), 
> 2274 48 -maxsize-1, .addr+1); 
3; 2275 49 end 
: 22d? 29 lse 
3; 2e7 1 ch$copy (.tokenlen, .tokenptr, %char (blank), 
3; 2278 25 emaxsize, .addr); 
: § 79 5 return true; 
2 80 54 1 end; 
OOFC 00000 eENTRY GETSTRING, Save R2,R3,R4,R5,R6,R7 : 2289 
57 00000000G 00 9€ BO00s MOVAB TOKENLEN, R7 : 
56 000000006 00 9€ 0000 MOVAB TOKENPTR, R6 : 
54 D4 BR849 CLRL R4 3; 2334 
01 oc AC D1 00012 CMPL TYPE, #1 $ 
9? 12 Bote BNEQ 1$ : 
4 dg 001 INCL 3 
08 Ac OO1A DECL MAXSIZE : 2336 
50 67 C 0001D 1$: MOVZWL TOKENLEN, RO ; 2338 
08 AC 50 01 90020 CMPL RO, MAXSIZE : 
14 15 00024 BLEQ 3 
$6 DD 00026 PUSHL TOKENPTR : 2341 
Q dD 00028 PUSHL RO 3 
02 DD 0002A PUSHL #2 3 
00000000G 8F DD 0002C PUSHL #UAFS_INVSTR ; 
00000000G 00 04 FB 00032 CALLS #4, LIBSSIGNAL 3 
04 00039 RET 3 
50 04 AC Re OOO3A 2$: MOVL ADDR, RO : 2346 
26 67 3C¢ 4 54, MOVZWL TOKENLEN, R 3 
5 66 DO 00041 MOVL TOKENPTR, R 3 2347 
11 54 €E9 00044 BLBC R4, 3 
60 52 2 00047 MOVB R2, (RO) : 2346 
51 08 A 9} C3 0004A SUBL3 #1, MAXSIZE, R1 : 2348 
51 20 6 : 2C O004F MOVCS R2. (R3), #32, R1, 1(RO) : 
wy s 0054 3 
07 11 00056 BRB 4$ 3 $303 
08 AC 20 63 28 2c Bee 3$: MOVCS R2, (R3), #32, MAXSIZE. (RO) 3; 2352 
50 01 00 Bpbeb 4$: MOVL #1, RO 3 $327 
04 00062 RET 3; 2354 


; Routine Size: 99 bytes, Routine Base: S$CODE$ + 1065 
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UAF PARSE -11 =74 P 5 
v04=~ Sep-19 DISKSVMSMASTE *CUAE  SRCSUAFPARSE .83204°* (2%) 


getval = get numeric value from user 


>; 228 5 1 &sbttl ‘getval - get numeric value from user’ 

; 228 8 1 -opat routine getval (addr, size) aaa ogg 

; Be 2 begin 

: 208 5) 2 t+ 

3; 228 60 : 

: Ss y FUNCTIONAL DESCRIPTION: 

> 2290 6 i Routine to return binary value for next ASCII decimal 
: 4 rf: } number in the input stream. 

; 95 6 | INPUTS: 

3 2295 68 i ADDR = address to return converted value 

: 38 $38 SIZE = size in bits of field in which to return value 
; $33 371 IMPLICIT INPUTS: 

3 2550 a378 NEXTTOKEN = contains address of delimiter preceeding the number 
3 30¢ 3373 t OUTPUTS: 

; Spe 3317 field described by ADDR and SIZE receives binary value 
3 306 $300 i IMPLICIT OUTPUTS: 

> 2308 381 2 | none 

3; 2309 $aa6 ‘ 

: 19 3384 ROUTINE VALUE: 

; 3\§ 385 true -> value converted successfully 

; 231 386 ; false -> non-numeric character encounted before next 

: sate Ht } delimiter found 

; 3316 389 SIDE EFFECTS: 

3 s\3 $30, ; If error is encountered, an error message will be printed. 
: 336 398 ine 

: 2321 394 

3 356 395 local 

3 23 396 value; ! for value returned 

: $$¢ ada ! by CVTNUM routine 

3 3 6 339 ' 

: ; i rts : Check for no value supplied 

> 2329 40 

3; 2350 40 if .tokenlen eql 0 

3 $3) 404 then 

: 338 40 return LIBSSIGNAL(UAF$_NOARG, 2, .tokenlen, .tokenptr); 

; 40 ' 

: 336 rt : Convert to decimal. Report error if any non-numerics encountered. 
: 233 41 

3 33 rt if not cvtnum (.tokenlen, .tokenptr, 10, value) 


—TOMMOOWZ El KOH TOM IOVS Sl KAOKH TOM VOOZ SE KCK TO ™MMIOOZ SE ACH TA MIOOW 
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: 2339 oT then 

: re ti7 return LIBSSIGNAL(UAFS$_BADVALUE, 2, .tokenlen, .tokenptr); 
; 4g 415 2! 

3: 234 41 ! Check that the value supplied is within the size of 

s 44 419 ' the field to be oterea. 

3; 2345 418 ! 

3 2346 419 

: 2347 420 if .value<.size - 1, 32 - .size + 1> neq 0 

: 208 421 then 

3 330 “ ¢ return LIBSSIGNAL(UAF$_VALTOOBIG, 2, .tokenlen, .tokenptr); 
: 2351 hoe 2! 

; 326 : 5 Finally, store the value in field specified . 

> 2354 4 5 

3; 2355 428 (,addr)<0, .size> = .value; 

: 2356 429 

3; 2357 2430 return true; 

; 2358 2431 1 end; 


001¢ 00000 .ENTRY GETVAL, Save R2,R3,R4 : 2356 
54 000000006 00 9E 00002 MOVAB TOKENLEN, R4 ; 
53 000000006 00 H 00009 MOV TOKENPTR, R3 : 
SE 04 ¢ 00019 UBL2 #4, : 
50 64 3C 0001 MOVZ2WL TOKENLEN, RO > 2403, 
of 12 00016 NEQ 3 
63 DD 00018 PUSHL TOKENPTR : 2405 
50 DD OOO1A PUSHL RO ; 
02 DD 0001C¢ PUSHL #2 : 
000000006 8F DD OOO1E PUSHL  #UAF$_NOARG ; | 
40 11 00024 BRB 3$ ; | 
SE DD 000 6 1$: PUSHL  5$P : 2611. 
0A DD 000 PUSHL #10 ; | 
63 bp 002A PUSHL TOKENPTR : 
7E 64 3C 0002C MOVZWL TOKENLEN, -(SP) ; 
00000000v 00 04 Fe O02F CALLS #4, CVTNUM F | 
OF 9 E8 00 BLBS : : | 
6 itd 0039 PUSHL TOKENPTR : 2413 
7E 4 C 8 8 MOVZWL TOKENLEN, -(SP) ; 
2 dd 000 : PUSHL # F 
000000006 F DD 0004 PUSHL #UAF $_BADVALUE J 
1E 1 0046 BRB ; 
52 08 Ac oC 0 48 2%: SUBL3. #1 Size R2 > 2420. 
50 e! 08 ac ¢ 4 SUBL3 SIZE, #33, RO : 
51 6E 0 5 FF 0 5 EXTZ2V. R2, RO, VALUE, R1 : 
15 13 09 BEQL 4 ; | 
6 pd 0 9 PUSHL TOKENPTR > 2622 | 
7E 4 3¢ 00058 MOVZ2WL TOKENLEN, -(SP) : 
2 dD 00 3 PUSHL @# ; 
000000006 8F DD 0006 PUSHL  #UAF$_VALTOOBIG : 
000000006 00 4 fe 3898 3$: CALLS #4, LIBSSIGNAL : 


UAF PARSE 
v04-000 


04 BC 


; Routine Size: 


getval - get numeric value from user 


08 AC 


121 bytes, 


50 


Routine Base: 


SCODES + 10C8 


16 
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7 

4 DISKSVMSMASTER: CUAF. Re UAF PARSE. B32: i ) 

4$: INSV VALUE, #0, SIZE, @ADDR : 24 4 
ip thy aS 
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UAF PARSE 16-Sep-1984 02:21: VAX-11 Bliss-32 V 88 | 
v04-000 cvtnum = convert decimal ascii to binary 12=808-1 382 9:51:38 DISKSVMSMASTER: cae she UAF PARSE. 832: - *(26), 
; 2360 4 § 1 Zsbttl ‘cvtnum = convert decimal ascii to binary' 
3; 2361 4 1 routine cvtnum (size, adr, radix, valadr) = 
; ? : : begin 
: 2364 4 § 1 +4 
: 2365 4 i 
; o8 : 3 FUNCTIONAL DESCIRPTION: 
; 308 oat Routine to convert ascii digits to binary. 
: ar ane INPUTS: 
: g i 444 2 i SIZE = number of digits in input buffer , 
me +i6 445 ! ADR = address of the buffer containing "ascit digits 
3 2374 2446 i RADIX = radix of number to be converted 
3 336 gece 2 VALADR = address of longword to receive converted value 
: $377 449 : IMPLICIT INPUTS: 
> 2379 2451 2 | none 
: 2380 $t28 i 
; tet ster OUTPUTS: 
; o388 Stee § Longword pointed to by VALADR receives converted value 
: 3385 e437 2 IMPLICIT OUTPUTS: 
; att 2459 g i none 
: 2388 2460 2: 
é $355 $28) § ROUTINE VALUE: 
: 2391 ee 2 i true -> value successfully converted 
: S36 ree) 2 false -> non-numeric encountered before end of string 
: 2394 3t66 gt SIDE EFFECTS: 
> 2396 sees i none 
3; 2397 469 i. 
3; 2398 470 
3; 2399 471 bind 
3 res 428 sum = ,valadr; ' address ref scaler 
: 240 2474 
3 240 475 sum = 0; 
3 2404 ans 
3: 2405 47 ! 
3 vty] rth : Loop thorugh buffer. Stop on end of string or non-decimal digit. 
: 2608 480 2 
; reed ve} incr i from .adr to (.adr + .size - 1) 
3 2411 4 3 begin 
: tig 4 local 
; 241 485 digit, 
3 rer: 1 pointer; 
: 2616 1B digit = .(.i1)<0,8>; 


UAF PARSE 
v04-000 


. 
° 
7 

6 
. 

° 
© 
° 
o 
° 
. 

° 
. 

a 
2 
Oo 
. 

a 
. 
° 
. 

e 
o 
° 
. 

° 
* 

e 
o 

° 


; Routine Size: 


PS a eS 
WUIPSPOPIPSTUPof~onenn 


—“OVOVONAOULS WN O0O~) 


rororor 


4 

4 
2 
2 


vw 
Wwe 


69 bytes, 


16 
16-Sep-1984 96:51:38 VAX=11 Pi ise. -32 V 
14-Sep-1984 15:21:2 DISKSVMSMASTER: UAE she UAF PARSE. B32: 


Check validity of digit depending on radix 


ce ch$fail (pointer = ch$find_ch (.radix, numbers, 
en 
return false 


sum 
end; 


eturn true; 


10 


Routine Base: 


= (,sum*.radix) + 


55 estas «3 00 


AC 
AC 


50 
AC 


Pw eealealeales] 
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00 
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SCODES + 1141 


CVTNUM: 


(.pointer - numbers) 


-digit)) 

-WORD Save R2,R3,R4,R5 
MOVAB NUMBERS , RS 

CLRL_ @VALADR 

ADDL3 SIE. ADR, R4 
SUBL3 #1, “ 

BRB 33° 

MOVZBL (1), DIGIT 

LOCC Digit. RADIX, NUMBERS 
BNEQ  2$ 

CLRL RT 

TST POINTER 
MULL3 RADIX, @VALADR, R2 
MOVAB NUMBERS, RO 

SUBL 0, 

ADDL3. 1, R2, @VALADR 
AOBLSS R4. I, 1$ 
MOVL #1. RO 

ET 

CLRL = RO 

ET 


Bete Se Se Se Se Se Se Se Ge Se Se Be Ge Be Se Se Se Se Be Se 
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PASSWORD MACROS == for N-ary passwords 


; r he $08 } Zsbttl "PASSWORD MACROS == for N-ary passwords’ 

: 2635 0g 1 !+4 

; 24 § 5 1 

: ; 208 ! FUNCTIONAL DESCRIPTION: 

: 2439 215 1 i These macros and the routines that follow allow for 
; 2440 511 1: the use of any number of passwords. At the time of 
3 2441 21§ 1 this yatdag onty two oe taeey and secencers’ pass- 
3 244 513 1 words were in effect. When a change is made to the 
3; 244 514 1 number of passwords, it will be necessary, only, to 
: tte 212 ! update the argument List macros below. 

> 2646 517 1 ine 

: 2447 518 1 

3; 2448 519 1 macro 

3: 2449 520 1 

3; 2450 521 1 SNARY_LIST = "PRIMARY', ‘', ‘SECONDARY’, ‘2° %, 

Gao) pag OR oss 2 es 

: 3038 52 1! 

: size $252 } The remainder of the text will need no modification for N-ary passwords 
; 436 2507 1 

: 2457 2528 1 macro $PASSWORD(n) = %name(' PASSWORD _ * in) &: 

3 siee $362 } macro SPRESENT(n) = %name('PRESENT_'cn) 2%; 

> 2460 m 2531 1 macro OWN PASSWORD[n) = 

3 2461 M $236 1 own S$PASSWORD(n): blockC(DSC$K_D_BLN, byted 

; sis $287 : preset(CDSC$B_CLASS] = DSCSK_ =CLASS_ ; Z: 

> 2664 2535 1 OWN_PASSWORD($N_LIST); 
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18-se -1984 02:21: VAX-11 Bliss-32 V4.0-74 P 91 | 
UAFSGENERATE == Generate random passwords 12-Sep-19 4 96:54:33 Dd RKSVMGHASTER CUA SRCTUAF PARSE 832-1" (20), 


H § 1 %sbttl 'UAFSGENERATE -- Generate random passwords’ 
—— UAFSGENERATE = 
egin 


A 
I 


WAN 
~ooD 


lee | 
! 
| FUNCTIONAL DESCRIPTION: 
! Decide which passwords to generate 
i INPUTS: | 
none | 
IMPLICIT INPUTS: | 
CLISGET_VALUE (%asc id’ GENERATE_PASSWORD') | 
OUTPUTS: | 
none | 
| IMPLICIT OUTPUTS: | 
: Places new values in SPASSWORD(n)'s 
ROUTINE VALUE: 
none 
; SIDE EFFECTS: 
none 
lee 
own WHICH: blockCDSC$K_D_BLN, byte] preset(CDSC$B_CLASS] = DSCSK_CLASS_D); 
macro ACTIVE_PASSWORD(n) = 

ch$neq(Zname('UAF$S_PWD',n), RECBUFCZname('UAFSQ_PWD',n)J, 0, 0, 0) 2%; 
macro WHICH_EQLCTHIS] = 
ch$eql( TWHICHCDSC$W_LENGTH], .WHICHCDSC$A_POINTER], 

charcount(THIS), uplit(Zascii Zstring(THIS)) ) 2%; 

macro GENERATE_NEW PASSWORDCTHIS, nJ = 
if (ACTIVE _PASSQORD(n) and (FALSE or WHICH_EQL(*CURRENT'))) 
or WHICH_EQL(THIS, "BOTH', ALL") then 
AUTHORIZE_GENERATE(SPASSWORD(n), uplit(%ascii THIS), %charcount(THIS)) 
se 
SPASSWORD(n)CDSCS$W_LENGTH] = 0; 2; 


CLISGET_VALUE(Zascid'GENERATE PASSWORD’, WHICH); 
GENERATE_NEW_PASSWORD ($NARY_LTST); 


return TRUE; 
end; 


109 09 09 C9 NINN NN NN DD DDO DDD ITT BB 
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UAFSGENERATE == Generate random passwords 


os 


WOFWNMONf or om 


PPMP Puleu 


00000000 
04 
08 
04 
10 
04 


vw 
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mronr—o 
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1$ 
MOVL WHICH+4, RO 
CMPCS WHICH, (RO), #0, #7, P.AFI 


VL 4, RO 
CMPCS WHICH, (RO), #0, #7, P.AFJ 


2$ 
MOVL WHICH+4, RO 


$$ _____ __— —~ 


iss 


1984 02:21: VAX-11 Bliss-32 V4.0-74 - | 
1984 0g:31:38 DT SKSVMSMASTERSCUAF SRC TUAFPARSE .83201°* (265 


-PSECT $PLITS,NOWRT,NOEXE ,2 | 
ASCII \GENERATE_PASSWORD\<0><0><0> | 
.LONG 17694737 


*ASCII \CURRENT\<0> : 
»ASCII \PRIMARY\<0> : 
eASCII. \BOTH\ : | 
eASCII © \ALL\<O> : 
eASCII \PRIMARY\<0> : 
eASCII = \CURRENT\<0> : 
eASCII \SECONDARY\<0><0><0> : 
*ASCII = \BOTH\ : 
eASCII = \ALL\<0> : 
»ASCII \SECONDARY\<0><0><0> : 
«PSECT SOWNS,NOEXE,2 


BYTE 0OC3] : 
BYTE 2 3 
B 4 
E 03) : 
BYTE 2 : 
BLKB 4 
BYTE 0OC3) : 
BYTE 2 : 
BLKB 4 


»PSECT $CODES,NOWRT,2 


Save R2,R3,R4,R5,R6 2537 
MOVAB AUTHORIZE GENERATE, R6 
MOVAB P.AFG, R 
OV WHICH, R4 
PUSHL R4 2586 
PUSHL RS 
CALLS #2, CLISGET_VALUE 
CMPC5 #8. RECBUF+340, #0, #0, a#*x00000000 2587 
| 


2$ 
WHICH+ 


16 
UAF PARSE 1b-ge -1984 02:21: VAX=11 Bliss-32_V4.0-74 Page 93) 
v04-000 UAFSGENERATE == Generate random passwords 1 ~300n 138% 96:34:33 DISKSVMSMASTER: CUAF ..SRC UAFPARSE.B32: 1" (26) | 
| 
04 00 60 18 66 2D 0085 CMPCS WHICH, (RO), #0, #4, P.AFK 3 
0D 3 b2 BEQL 2$ : 
50 04 AS D 59 MOVL. WHICH+4, RO : | 
03 00 60 1c {: 2D O62 CMPC5S WHICH, (RO), #0, #3, P.AFL s 
D 12 0006 BNEQ 3$ : | 
7 bb 066 2$ PUSHL #7 : | 
20 AS 9F 0006 PUSHAB P.AFM : | 
FO AS 9F 00068 PUSHAB PASSWORD : | 
66 0 FB 00944 CALLS #3, AUTHORIZE_GENERATE : | 
FO AS B4 00073 38: CLRW PASSWORD ; 
00 00 000000006 00 08 2D 00076 4$: CMPCS #8, RECBOF+348, #0, #0, a#*x00000000 : 
00000000 9F 0007F i 
OD 13 90084 BEQL «65S ; 
50 04 A& DO 00086 MOVL.  WHICH+4, RO 3 
07 00 60 64 2D 0008A CMPCS WHICH, (RO), #0, #7, P.AFN : 
28 AS O08F : | 
27 13 00091 BEQL «= 6$ : | 
50 04 Ad DO 90093 5$ MOVL. WHICH+4, RO ; | 
09 00 60 64 2D 00097 CMPCS WHICH, (RO), #0, #9, P.AFO : | 
30 AS 0009¢ : 
1A 13 0009E BEQL «= 6$ : | 
50 04 A& 00 000A0 MOVL WHICH+4, RO : 
04 00 60 64 2D O00A4 CMPCS WHICH, (RO), #0, #4, P.AFP : 
3c AS 000A9 : | 
OD 13 OOOAB BEQL «= 6$ ; | 
50 04 A4& DO OO00AD MOVL. WHICH+4, RO : | 
03 00 60 64 2D 00081 CMPCS WHICH, (RO), #0, #3, P.AFQ : 
40 AS 90086 : 
OD 12 00088 BNEQ 7$ : 
09 OD OOOBA 6$: PUSHL # ; | 
44 AS 9F OOOBC PUSHAB P.AFR ; | 
F8 Ad OF OOOBF PUSHAB PASSWORD 2 : 
66 03 FB 900ce CALLS #3, AUTHORIZE_GENERATE : 
03 11 000C BRB : 
F8 A4 B4 000C7 7S: CLRW § PASSWORD_2 ; 
50 01 00 QOOCA 8$: MOVL #1, RO > 2589 
04 000CD RET : 2591 


; Routine Size: 206 bytes, Routine Base: S$CODE$S + 1186 
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UAF PARSE 1b-Se 1984 02:21:1 VAX=11 Bliss-32 V4.0-74 P 
VO6~008 GETPASSWORD - get user password 12286-1382 96:51:38 DISKSVMSMASTE a AE SRCSUAFPARSE.B%201"" 
3 1 Zsbttl 'GETPASSWORD - get user password’ 
a7 routine GETPASSWORD = 


| 
9 begi 
95 aie | 
239 144 
on 
238 ' FUNCTIONAL DESCRIPTION: | 
oR Action routine to process password. | 
60 INPUTS 
60 
604 none | 
605 
98 IMPLICIT INPUTS: | 
o08 none | 
6 OUTPUTS 
none 


| 
IMPLICIT OUTPUTS: | 
sets hashed password field in recbuf | 
ROUTINE VALUE: | 
| 


true => success 
false => failure 


SIDE EFFECTS: 
none 


own 


USER_DSC: $bblock(8] 
REC_ENCRYPT_DSC: $bblock(8); 


macro LOCAL_PRESENTCn] = 
local SPRESENT(n): initial (TRUE); 2%; | 


LOCAL PRESENT (S$N_LIST); 


PV PUPUPVIUDUSVSUSUSUSUSVSUSUSUSUSVSVUSUS USUI USUI SUITS ISIS SISOS 
Cit 2 O DOO OF Ut O Ooo NOU Ut 2 O Doe an WN -OVDONOUSWw 


Le A ey re tee ee et tal , a 


IN.AIAI AIP POPOPIPINININIPYDYD 2 2 OO OS "OO 
FUR (SO OONAVF WN "OOO NOoulwn—oo 


PIPIPOIPOPIPIPIPIPI PIPPI PI PINIPIPIPINININIPIPIPININPINPIPIPIPUPUNINIPUNPIPONNPoPoPononwnyd 


Rohmononononofororys 
PPPAAAMVMIN 

i en Sm ete ee 
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565 


PRARAEAPXAAAAAAAAA AA AAAAAA AAA AAAS 


PIPPI IPIPIPIPIPIPINIPINININININININIPININININIPIPININPINPNIPNPofy 
II 


; What are the passwords ??? 


if FLERE TER JOSEUONRS eql CLIS_NEGATED then 
egin 


macro BLANK_PASSWORDCn] = SPRESENT(nm) = FALSE; 2; 
BLANK_PASSWORD($N_LIST); 


end 
else if CLISPRESENT(SD_PASSWORD) then 
begin 


Be Se Se Se Be Se Fe Be Ge Ge Ss Se Se Se Be Fe Se Se Ge Ge Ge Ge Ge Fe Ge Fe Ge Ge Ge Ge Se Se Fe Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Sse Se Sse Se Se Sete ts sees 
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Kk 16 | 
UAF PARSE 16-Sep-1984 02:21: VAX-11 Bliss-32 V4.0-74 P 5 | 
VOuL 008 GETPASSWORD = get user password eaeeen18bs PSiStity Pee eale tea Uke seeSuarpanse 320k cats | 


80 M 2649 macro GET_PASSWORD(n] = 
1 4 630 SPASSWORD(n) CDSC$W_LENGTH] = 0; 
: M 2651 SPASSWORD(n) CDSCSA~POINTER] = 0; 
5 636 SPRESENT(n) = CLISGET_VALUE(SD_PASSWORD, SPASSWORD(n)); %; 
2 63 GET_PASSWORD(S$N_LIST); | 
85 654 end; 
286 655 
28s gag i When is it bei hanged 22? 
; en 18 1t being changed 7??? 
389 658 3 — 
590 65 | 
591 660 SGETTIM(t imadr=TIME_BUF); 
296 661 | 
237 ee i If this i d 
; S$ 1S @ new passwor eee 
595 664 i 
596 665 
597 666 if .RECBUFCUAFS$W_SALT] eql 0 then 
598 2667 RECBUF CUAFSW_SALT] = .TIME_BUF<3*8, 16>; | 
599 2668 
seoe rif i Find the | h of th 
M nad the length of the username 
2609 671 3 | . 
260 67 
2604 67 begin 
3605 7 
606 7 builtin LOCC; 
2607 v4 builtin RO; | 
LOCC (Zref(Zchar(BLANK)), %ref(UAFS$S_USERNAME), RE CBUF CUAF $T_USERNAME J) ; 
2609 7 USER_DSCEDSC$W_LENGTH = UAF$S_USERNAME = .RO: 
USER-DSCCDSC$A_POINTER] = RECBOFCUAF$T_USERNAME); | 


Coco coco CoCo I~ 
MEWN SO OONOULwI 


Check the new passwords for syntax 


PAAAAAAAA AAO OS 


begin 


: 
| 
macro CHECK_PASSWORDEn] = | 


oon 
O00 
oo 


MORIN 3 2 


if .SPASSWORD(n) CDSC$W_LENGTH] tru 31 then 
return LIBSSIGNAL (UAFS$_PWOSYNTAX); 
incr COUNTER to .$PASSWORD(n)CDSCS$W_LENGTHJ-1 do 
if chSfail( ch$find_ch(.SYMBOL_STR<0,8>, SYMBOL_STR+1, 
.vector€. SPASSWORDTn) LDSCSA. POINTER, 
“COUNTER;, byte]) ) 


then 
return LIBSSIGNAL(UAFS_PWDOSYNTAX); 2; 
CHECK_PASSWORD(S$N_LIST); 
end; 


RIP IPIPDPINIPINIPININPININININPIPININIPINININININININININININININININININD 
NO oa ao 
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UAF PARSE 18-5¢ -1984 r21: VAX-11 Bliss-32 V4.0-74 P 96 
¥04-008 GETPASSWORD = get user password 1 ~300n 138% 96:51:33 DLSKSVMSMASTERSCUAR SRC SUAFPARSE 832049" (295 
: 2637 706 : 
; 2638 7 
; 2639 708 begin 
; 2640 709 
; 2641 M 2710 macro MODIFY_PASSWORDCn] = 
3 264 M 2711 
> 264 M re if not .SPRESENT(n) then 
: ete ay begin ! Blank out the current values 
3 264 M 2715 CHSFILL(O, Zname(*UAFSS_PWD' nm), RECBUFCEname(*UAFSQ_PWD',n)]); 
; 264 M £18 ch$fill(O, Xname('UAFS$S_PWD',n, “Ke 
; 648 ats RECBUF CZnamet'UAF$Q_PQD',n,' DATE") J); 
: 2650 M 2719 RECBUF Ciname(*UAFSV_PWD',n,'_EXPIRED')] = FALSE; 
> 2651 M 2720 PWD_FLAG = FALSE; 
3 $026 M 2721 
3 265 M 27 ; end 
3 2654 M 27 else if .SPASSWORD(n)CDSCS$W_LENGTH] neq 0 then 
: $022 : f 3 begin ! Encrypt the new values 
: sees M 2726 RECBUF CZname("UAFS$B_ENCRYPT',n)] = ENCRYPT; 
; 3658 M 2727 REC_ENCRYPT_DSCCDSCSW_LENGTH) = %name('UAF$S_PWD',n); 
3; 2659 M 2728 REC_ENCRYPT_DSCLDSCSA_POINTER] = RECBUFCZname('UAF$Q_PWD',n)J; 
; 2660 M 1g PWD-FLAG = FALSE; 
; 2661 M 2730 ; 
; $oeg M 2731 LGISHPWD(REC_ENCRYPT_DSC, SPASSWORD(n), 
3 so a ers -RECBUF Yiame ('UAF$B_ENCRYPT',n)J, -RECBUF CUAF $W_SALTI, 
> 2664 ” a user_dsc); 
; 2665 M 2734 
; 2666 M 2735 ch$move( Xname('UAFSS_PWD',n," DATE"), TIME_BUF, 
> 2667 4 3736 RECBUF Cinmamet'UAF$Q.PQD',n,* DATE'S1); 
; 2668 M 2737 
: $088 738 end; 2%; 
; 2670 739 
; 2671 740 MODIFY_PASSWORD($N_LIST); 
; sore 2741 
3 267 sieg end; 
3 2674 $f 
: 2675 744 ! 
; 2676 745 : That's all folks ... 
3 2677 746 ! 
3 2678 747 
3; 2679 748 return TRUE; 
: $o80 749 
; 2681 750 end; 


~PSECT SOWNS,NOEXE,2 
00124 USER_DSC: 


-BLKB 8 
0012C REC_ENCRYPT DSC: 
BLES. 8 


-EXTRN SYSSGETTIM 


UAF PARSE 16-Sep- 1: VAX-11 Bliss-32 V4.0-74 7 
VO4~008 GETPASSWORD = get user password 14- =ten- 198 98: 3 3 DISKSVMSMASTER: CUAF .SRCJUAFPARSE. B32"1 9° 095 


~PSECT SCODES,NOWRT,2 
OFFC 00000 GETPASSWORD: 
oW RD 


0 Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 9 
B 990 0006 9E 002 MOVAB PWD FLAG, R11 : te 
A 00 0 06 9E 0000 MOVAB SYMBOL SfR, R10 : | 
9 0 06 9E 19 MOVAB SIME BOF : 
: 0000006 0 9—€ 0001 MOVAB RECBOF+358, RB : 
0000000' 9 0 3 MOVAB PASSWORD , R7 : 
4 1 dd 000 MOVL #1, PRESENT_ + 2594 | 
© sooo0000' 90 br boo5e PUSHABR SD’ PASEGOND : 2642. 
000000006 00 1 FB $0 1 CALLS #1, CLISPRESENT : 
000000006 8F 0 D1 00038 CMPL RO. #CLIS_NEGATED : 
ae ae tt ya ONee PRESENT : 2645 | 
ba J Py 
56 D4 00043 CLRL PRESENT_2 : 
40 11 00045 BRB 2$ : 2642 
00000000' 00 9F 00047 18: PUSHAB SD_PASSWORD > 264? 
000000006 00 01 FB 0004D CALLS #17 CLISPRESENT : | 
30 50 £9 00054 BLBC ~=_«aRO,_ 2$ : 
67 64 00057 CLRW  PASSWORD_ > 2653) 
04 AZ d4 90059 CLRL PASSWORD +4 : | 
57 DD 0005¢ PUSHL R? ; 
00000000' 00 9F 0005E PUSHAB PASSWOR ; 
000000006 00 vs FB 00064 CALLS aot Criseet _VALUE : 
54 50 DO 00068 MOVL RO, PRESENT~ F | 
08 A? B4 0006E CLRW © PASSWORD_ ; | 
0C A? 04 00071 CLRL PASSWORD 2+4 : 
08 A? OF 90074 PUSHAB PASSWORD : 
00000000' 00 9F 00077 PUSHAB SD_PASSWORD ; 
000000006 00 02 FB 0007D CALLS #2, cLiscet _VALUE : 
56 50 00 00084 MOVE § — RO, Tr2 ; | 
59 DD 00087 2$: PUSHL : 2660 | 
000000006 00 01 FB 00089 CALLS a. epgysSggrtim : | 
68 B5 00090 TSTW  RECBUF+3 : 2666 
04 if 90032 BNEQ ; 
68 03 Ag 9 0094 MOVW TIME 8 F+3 eecng +358 3: 2667 | 
FESE CB 20 20 A 00098 3$: LOCC. #32, #32, REC t 2677. 
18 «A? 20 0 A3 00096 SUBW3 RO, #32, USER : 2678 
1c «OA? FEE C8 9E 000A MOVAB  RECBUF+4, oe SS c+ > 2679 | 
1F 67 Bi 9009 CMPW §PASSWORD_ 3 2700. 
45 1A OOOAC BGTRU 9$ : 
53 67 3¢ OOAE MOVZWL PASSWORD : 
52 1 cE 008 MNEGL SS HOUNTER® : 
15 11 000B4 BRB ; 
51 6A 9A 00086 4$: MOVZBL sy MBOL_STR RI : 
50 04 A? 00 00089 MOVL ASSWORD +4 : 
01 =A 51 6240 3A 0008 LOCC CCOUNTERTEROI” On. SYMBOL _STR+1 : 
2 12 000C¢ BNEQ 5$ : 
1 04 9o¢ CLAL RI ; 
1D (7? 5$: TSTL ; 
: 1 (9 BEQL 5 : 
E7 52 F (B 6$: AOBLSS R3, COUNTER, 4$ : 
iF 08 A 8 CF CMPW PASSWORD_2, #31 : 
3 A D3 BGTRU : 
53 08 a? 3¢ 000D MOVZWL PASSWORD_2, R3 : 


— YE SY en 
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UAF PARSE 16-5e -1984 :21: VAX-11 Bliss-32 V4.0-74 Page 98 
v04-000 GETPASSWORD = get user password 1 ~3ep-19 4 96:87:33 DISKSVMSMASTER:CUAF.SRC UAF PARSE .B32:1° (295 
52 1 Ce D9 MNEGL #1, COUNTER ; 
4 DC BRB : 
51 A 9A 9 DE 7$: MOVZBL SYMBOL_STR, R1 : 
0 0c AZ p0 E MOVL PASSWORD ens RO : 
01 AA 51 6240 3A OO0ES LOCC  (COUNTERTEROJ, R1, SYMBOL_STR+1 : 
2 12 OOEB BNEQ 8$ : 
1 D4 OODED CLRL sR : 
1 D5 OE 8$: i eee : 
x 12 OO0F1 BNEQ _10$ ; 
000000006 8F DD O00F3 9$: PUSHL #UAF$_PWDSYNTAX : 
000000006 00 01 FB 000F9 CALLS #1, LTBS$SIGNAL ; 
04 00100 RET : 
D9 52 53 F2 00101 10$:  AOBLSS R3, COUNTER, 7$ : 
16 54 ES 00105 BLBS PRESENT_, 1/$ + 2740 
08 00 6E * 00 C 00108 MOVCS #0, (SPY. #0, #8, RECBUF+340 : 
08 00 6E 00 2c 0010F movcS #0, (SP), #0, #8, RECBUF+380 ; 
16 AB 00114 : 
6+ = AB 02 8A 00116 BICB2 #2, RECBUF+469 : 
6B D4 OO11A CLRL PWO_FLAG : 
2F 11 0011C BRB : 
67 BS OO11E 11$:  TSTW PASSWORD. : 
2B 13 0012 BEQL 12$ ; 
62 AB 006 8F 90 00122 MOVE HENCRYPT RECBUF +360 : 
20 AZ 08 BO 0012 MOVW #8, REC_ENCRYPT_DSC F 
24 =A? EE Aa 9E 00128 MOVAB RECBUF+340, RECTENCRYPT_DSC+4 : 
6B 04 00130 CLRL PWD_FLAG : 
18 AZ? 9F 00132 PUSHAB USER Dé : 
7E 68 3C 00135 MOVZWL RECBOF+358, -(SP) : 
7E 02 AB 9A 00138 MOV ZBL RE CBUF +360, -(SP) : 
57 DD 0013C¢ PUSHL R ; 
20 A? OF 0013E PUSHAB REC_ENCRYPT_DSC ; 
000000006 00 05 FB 00141 CALLS #5, LGISHPW : 
Ag 69 08 28 09148 MOVC3 #8. TIME BUF, RECBUF+380 : 
16 56 €8 .0014D 12$:  BLBS PRESENT 2, 13$ F 
08 00 6E 1. 09 2c B0128 MOVCS #0, (SPY, #0, #8, RECBUF +348 : | 
08 00 6E 00 2c 00197 movcS #0, (SP), #0, #8, RECBUF+388 : 
6F AB 04 8A 00156 BICB2 #4, RECBUF +469 : 
68 D4 0016 CLRL  PWO_FLAG : 
1 11 00164 BRB : 
08 A7 85 00166 13$:  TSTW  PASSWORD_2 : 
ec 1 00169 BEQL : 
03 006 SF 95 00168 MOVE #ENCRYPT RECBUF +361 : 
20. A? 08 B0 00170 MOVW #8, _REC_ENCRYPT_ : | 
24 F6 AB 9E 00174 MOVAB RECBUF+348, RECTENCRYPT_DSC+4 : 
68 D4 00179 RL PWD_FLAG : 
18 «OA 3 178 PUSHAB USER Ds¢ : 
7E 68 3C OO17E MOVZWL RECBOF+358, -(SP) : | 
7E 03 ag 9A 0181 MOVZBL RECBUF+361, -(SP) : 
08 A? OF 00185 PUSHAB PASSWORD : 
20 A? 9F 001 PUSHAB REC_ENCRYPT DSC : 
000000006 00 5 EB 1 CALLS #5," LGISHPW : 
1E AB 69 8 28 001 MOVC3 #8. TIME BUF . RECBUF +388 : 
50 1 00 019 148: MOVL #1, R : 2748 
04 00194 : 2750 


yet Bliss-32 V4. 99 
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16-5 ~en- 138? 06:8! VAX- 
GETPASSWORD = get user password -Sep-1 DIS 


; Routine Size: 411 bytes, Routine Base: S$CODE$ + 1254 
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D1 | 
UAF PARSE 16-Sep-1984 02:21: VAX-11 Bliss-32 V4.0-74 Pp 100 
v04-000 AUTHORIZE_GENERATE == Interface to PL/I GENERAT 1o=8eP 138 96:34:33 DISKSVMSMASTER: CUAF.SRC UAF PARSE .B32:1> (28) 

683 7 1 %sbttl ‘AUTHORIZE_GENERATE -- Interface to PL/I GENERATE PASSWORDS routine’ 

684 7 1 routine AUTHORIZE_GENERATE( NEW_PASSWORD: ref blockLDSC$R_D_BLN, byted, 

685 7 THIS, TLENGTH ) = 

686 7 begin 

687 

688 ++ 

689 ' 

2690 f FUNCTIONAL DESCRIPTION: 

269 Interface to PL/I procedure GENERATE_PASSWORD, which ? 
69 7 generates random, pronounceable passwords. This routine ? 
69% f must prompt the user for input with NOECHO in effect f 
696 INPUTS: ? 

2697 ? 

2698 None ? 

2699 ? 

00 IMPLICIT INPUTS: 7 


i 

i 

i 

i 

' 

i 

i 

i 

i 

Input from user terminal. 
OUTPUTS: 

PASSWORD, by descriptor. 
| IMPLICIT OUTPUTS: 
User prompt. 
; ROUTINE VALUE: 
None 

NOTE: 

i 

i 

i 

ie 


PL/I apparently uses a form of ASCIC to represent its strings, 
however, PL/I uses a word for the character count, not a byte. 


SSN NN SNS SINS NSN 


WAI WWARNIPININIPINININININD) 2 2 OO OM MH DOO OOCOCOCO 


WWW 
BSSSSRRUNS SSN RUN SOWNOnR Ww OS NOU RUN 


; 
; 
; 
r4 
: 
; 
: 


Be Be Be Be Fe Se Ge Ge Se Se Se Se Se Se Fe Ge Fe Gs Se Ge Ge FHS Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Fe Se Se Se Se Se Sse ee se Se Se Ve Sse Se Se seesasesas 


POPIPIPINGNINDPYNINYNGPINIPUNPSPNPONINPININIPYNINPIPI NINO NINO NNN Py PonPononofonon 


. macro 
7 DSC$L_L1 = 24, 0, 32. 0 %, 
r f : DSC$L_U1 = 28, 0, 32, 0 %; 
7 796 literal 
7 797 
7 798 MAX = 10, 
7 799 MIN = 6, 
7 800 N_WORDS = 5; 
7 801 
7 Hi own 
7 80 
7 804 CHANNEL, 
7 805 DSC: block(DSC$K_S_BLN byte? reset (CDSC$B_CLASSJ=DSC$K_CLASS_S), 
: Hi] pUNCT AGH initial (T0$_REA PROMPT or IO$M_CVTLOW or IOSM_NOECHOS, 


ee ee thced 


———— — ~-y 
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UAF PARSE 16-5e -1984 3273] VAX-11 Bliss-32 V4.0-74 Page 101 
v04-000 AUTHORIZE_GENERATE == Interface to PL/I GENERAT ~300 71 38% 96:31:38 PT EKSUNGHASTER CUA  SRCSUAFPARSE 832047 (28) 
: 2740 808 PROMPT: vector([45, byte] preset((0]=13, (1J=10, 
i 2741 3809 Code Eee PShStaeeEedaPee Esicte’. Coleen’; C7]! *) | 
: 274 2811 bind 
: ree 2818 P2 = UPLIT( d: *) | 
; = * password: '); 
: 2746 814 
eR TUTE | ee scenes ses aortas toe 
3 ' e€ password generator requires a complex descriptor 
PON ge a BS es eee ae eee er ana 
: 3731 a 2820 macro PLISVARYING_CHARACTER_ARRAYCNAME, LENGTH, WIDTH] = 
; shee M 85) own 
3 2754 M sess 
3; 2755 M 28235 2 X%name (NAME) : piagkver tore Auth. (WIDTH+2), byte], 
: 2756 M 2824 2 Zname(NAME,' DSC‘): blockC32, byteJ 
: 2757 M 2825 2 preset (CDSC$W_MAXSTRLEN] = wibTH, 
: 2758 M 2826 2 postse.pr ree) = 57 
: 2759 M 2827 2 DSC$B-CLASS] = DSCSK_CLASS_VSA, 
; 2760 M 2828 2 EDSCSA_POINTERI = Xname(NAME), 
: 2761 M soe? § ppecee pine! = 1, 
3; 2762 M 2830 DSC$A_A0O] = Xname(NAME) - (WIDTH+2), 
: 2763 M 2831 2 COSC$L_S1J = (WIDTH+2), 
3 2764 M 2832 2 CDOSC$L_L1J = 1 
: 2765 2833 2 CDSC$L-U1] = LENGTH); %; 
: 2766 2834 2 
; 2767 2835 2  PLISVARYING_CHARACTER_ARRAY('PWD', N_WORDS, MAX, "HYPH', N_WORDS, 2*MAX); 
: 2768 2836 2 
: 2769 2837 2! 
; 2770 2838 2! Build the prompt string 
3: 2771 2839 2! 
: 2772 2840 2 
3: 2773 2841 2 ch$move(.TLENGTH, .THIS, PROMPT(8]); 
> 2774 gB4¢ 2 ch$move(i1, P2, PROMPTCS+.TLENGTH]); 
: 2775 2843 2 
: 2776 2844 PLENGTH = 8 + .TLENGTH + 11; 
: 2777 2845 
3; 2778 2846 ! 
3 2779 2847 2! Open a channel to the user 
: 2780 2848 2! 
3 2781 2849 
3; 2782 2850 SYSSASSIGN(Zascid'SYSSCOMMAND:', CHANNEL, 0, 0); 
; sie? $82) NEW_PASSWORDCDSC$W_LENGTH] = 0; 
3: 2784 B26 
; sie? 85 ! 
3: 2786 854 : Generate random passwords ... 
3: 2787 855 ! 
3; 2788 856 ; 
3: 2789 857 while .NEW_PASSWORDCDSC$W_LENGTH) eql 0 do 
: 2790 858 begin 
3: 2791 859 
3; 279 60 own 
: 279 61 BUFFER: vector(128, byte], 
3: 2794 o¢ I0SB: vector(4, word], 
3; 2795 6 LISTED; 
3: 2796 864 

| 


!: 
UAF PARSE 16-Sep-1984 221: VAX-11 Bliss-32 V4.0-74 Page 10 
v04-000 AUTHORIZE_GENERATE == Interface to PL/I GENERAT 19-808-13Re 06:51:43 DISKSVMSMASTER: CUAF .SRC UAFPARSE.B32:1° 383 
H 3738 B6> LISTED = FALSE; 
; 943 U4 SYSSQIOW(O, .CHANNEL, IO$_WRITEVBLK, 0,0,0, 0, 0, 0, 32, 0,0); 
: 2801 869 GENERATE_PASSWORDS(PWD_DSC, HYPH_DSC 
: 2 Bfy uplitTMIN), uplit(MAX), uplitTN_WORDS)); , 
3 ERR 1h SYSSQIOW(O, .CHANNEL, IO$_WRITEVBLK, 0,0,0, 0, 0, 0, 32, 0,0); 
; 2806 2874 incr i to N_WORDS=1 do 
3; 2807 875 4 begin 
3 ts4 876 4 DSCCDSCSW_LENGTH) = .PWOC.i, g. 0, 16s 9; 
3; 2809 877 4&4 DSCLDSCSA_POINTER] = PWDL.i, 2, 0, 0, 0); 
; 2610 878 4 STRSUPCASE(DSC, DSC); 
3; 2811 2879 3 end; 
3 sole 2880 3 
: 281 2881 3 while not .LISTED do 
3 2814 song 4 begin 
3; 2815 2885 4 
3; 2816 2884 4 SYS$SQIOW(O, .CHANNEL, .FUNCTION, 1088, 0, 0, 
; 2817 2885 4 BUFFER, 127, 0, 0, PROMPT, .PLENGTH); 
3; 2819 2887 4 if .BUFFERC.IOSBC1))] eql 26 then ! CTRL/Z 
; 2820 2888 4 return bierta eet etree 2, -TLENGTH, .THIS) 
3 2821 2889 4 else if .I0SBC1] eql 0 then 
3; 2822 2890 4 exitloop; 
3; 2823 2891 4 
: 2824 $oae 4 incr i to N_WORDS-1 do 
; 2825 2893 4 LISTED = .LISTED or 
3 $e5$ 2894 4 ehtogt* tse) BUFFER 
> 2827 2895 4 .PwOL.i, 0, 6, 16, O41, PwOL.i, 2, 0, 0, 03); 
: 2828 2896 4 
PF} th Stop 4 if .LISTED then 
3; 28350 898 5 begin 
3; 2831 2899 5 NEW_PASSWORDCDSC$W_LENGTH] = .IOSBC1); 
: 2832 2900 5 LIBSGET_VM(%ref(.10SBC1)), NEW_PASSWORDEDSC$A_POINTER]) ; 
; 2833 2901 5 ch$movet.10SBC1], BUFFER, .NEW_PASSWORDCDSC$A_POINTER]); 
3 2834 2902 5 end 
; 2835 2903 4 else 
3; 2836 2904 4 LIBSSIGNAL (UAF$_PWDNOL) ; 
3 tH 2905 4 
: 2838 2906 ; end; 
3; 2839 2907 
$ ak $o08 end; 
3; 2841 90 
: og soit ! 
3: 284 911 ! That's all folks ... 
3: 2844 aig ! 
3 2845 91 
3 2846 914 return SYS$DASSGN(.CHANNEL); 
3 2847 915 
; 2848 2916 1 end; 


-PSECT S$PLITS,NOWRT,NOEXE,2 
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UAF PARSE 1b-se =1984 02:21:19  VAX=11 BLiss-32 v4.0-74 p 

V04-000 AUTHORIZE GENERATE == Interface to PL/I GENERAT le-Sep-1986 $:51,2%  DLSKSVMEHASTERSCUAE SACIUAFPARSE 32°49" cao 

0 20 3A 64 72 6F 77 73 73 61 7 34 P.AFS: ASCII \ password: \<0> 

A 46 GE 41 4D 4D GF 43 24 8 g 3 40 P.AFU: ASCII \S¥SSCORMAND : 

19E000C, OO54C PLAFT: “LONG. 17694782 : 

0960000" 0055 "ADDRESS P_AFU : 

000006 00554 P.arv: SLONG 6 : 

00000008 00558 P:AFW: ‘LONG Jo : 

0000005 0058¢ PLAFX: “LONG 5 : 


-PSECT S$OWNS,NOEXE,2 
CHANNEL: .BLKB 
«BYTE 


0134 
008 0138 DSC: (3) ; 
1 00138 ; : 
0013¢ “BLKB 4 
00000177 00140 FUNCTION: 
.LONG 375 ; 
00144 PLENGTH:.BLKB 4 
20 72 65 74 6E 45 OA OD 00148 PROMPT: .BYTE 13, 10, 69, 110, 116, 101, 114, 32 ; 
00150 LKB (37 
00175 “BLKB 3 
00178 PwD: -BLKB 60 
000A 00184 PWD_DSC:.WORD 10 ; 
0c 33 00186 <BYTE 37, 12 ; 
00000000" 00188 ADDRESS PWD F 
00# 001BC “BYTE 03] : 
01 O01BF “BYTE 1 : 
00# 001C0 BYTE Of4] : 
00000000" 001¢4 ADDRESS PwD-12 F 
00000005 00000001 0000000C 001¢8 “LONG 12, 1, 5 ; 
00104 HYPH: <:BLKB 116 
00242 ;BLKB 2 
0014 00244 HYPH_DSC: 
WORD 20 ; 
C 25 00246 “BYTE 37, 12 : 
00000000" 00248 -ADDRESS HYPH : 
OO# 0024¢ -BYTE 0C3] ; 
01 0024F “BYTE 1 ; 
00# 00250 “BYTE O04] : 
0000° 00254 “ADDRESS HYPH=22 : 
00000005 00000001 00000016 00258 “LONG 22, 1, 5 ; 
00264 BUFFER: .BLKB 128 
O0E4 10SB: .BLKB 8 
OO2ZEC LISTED: .BLKB 4 
P2= P.AFS 


-PSECT $CODES,NOWRT,2 
O3FC 00000 AUTHORIZE GENERATE: 
.@ORD 


Save R2,.R3,R4,R5,.R6.R7.RB,R9 : 2752 
59 000000006 00 9€E 00002 MOVAB LIBSSIGNAL, R9 ; 
: 00000006 00 3 0009 MOVAB SYS$Q10W, RB : 
6000 6 ‘ 6 E 19 MOVAB P2, R ; 
6 00 ' 9 1 MOV CHANNEL, R6 : 
E 4 ¢ IE SUBL2 #4, SP ; 
1c Ab 08 BC Oc AC 002 MOVC3 TLENGTH, @THIS, PROMPT+8 > 2841 


a 


| 
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UAF PARSE 
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UAF PARSE 
v04-00 AUTHORIZE_GENERATE == 
50 
9E 00 0130 
01B8 
DD 
04 
04 


000000006 
04 2 0130 


000000006 


1 
16- Se 4 1: VAX-11 Bliss-32 V4.0-74 
Interface to PL/I GENERAT 1 =3e 71 8Re 96: 3 33 DISKSVMSMASTER: CUAF .SRCJUAF PARSE. B32" ; 
50 1 C 000D MOVZWL 10SB+2, R 
1A 8135 col ‘i # CMPB QuFFERtROS, #26 #26 
12 1 E BNEQ 
08 AC DD OOOEA PUSHL THIS 
C AC DD OOOED PUSHL TLENGTH 
DD OOOF PUSHL # 
000000006 8F DD 000F PUSHL #UAF$_PWDNCH 
9 4 FB F CALLS #4, LIBSSIGNAL 
04 O000FB RET 
50 D3 FC 5$ TSTL = RO 
0 | OF BNEQ 6$ 
FF46 31 19 BRW i$ 
54 D4 001 $$: CLRL I 
54 O¢ C5 9019 $: MULL3 #12, I, RO 
D4 00109 CLRL ss RS 
44 A640 OF 00108 PUSHAB PWDCROJ 
C6 01B2 C6 2D 0010F PCS 1OSBe2, BUFFER, #0, a(SP)+, PwD+2CRO] 
46 A640 00118 
0¢ 12 00118 BNEQ 8$ 
55 D6 0011D se 
C6 55 C8 OO11F 8$ SL2.-R5, LISTED 
54 04 F3 00124 AOBLEQ #4. I, 7$ 
29 0188 C6 £9 00128 C LISTED, 9$ 
50 01B2 6 3¢ 00120 MOVZWL I0SB+2, RO 
BC 50 BO 00132 VW RO, @NEW PASSWORD 
52 04 AC DO 00136 VL NEW_PASSQORD, R2 
04 Ad OF 013A PUSHAB 4(R2) 
AE 50 DO 0013p L RO, 4(SP) 
04 AE 9F 00141 PUSHAB 4(Sp) 
00 02 FB 00144 CALL LIBSGET_VM 
C6 0182 C6 28 00148 MOVC Togesee StFFER, a4(R2) 
— 09 11 00154 BRB 
00000600G 8F DD 00156 9s: PUSHL BUAFS WDNOL 
69 9) FB 0015C CALLS Ar TBST HAL 
FF56 31 0015F 10$: RW 4s’ 
66 DD 00162 11$: PUSHL CHANNEL 
00 01 FB 00164 CALLS #1, SYSSDASSGN 
04 00168 RET 


; Routine Size: 364 bytes, Routine Base: S$CODE$S + 13EF 


: 2849 2917 #1 

3 spay 2918 1 end 

3; 2851 2919 0 eludom 

: Name Byte 
: SPLITS 

; SOWNS 


-EXTRN LIBSSIGNAL 


PSECT SUMMARY 

Ss Attributes 

137 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, Lethon big bot ff 
752 NOVEC. WRT, RD .NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Sete Se Se Ge Se Se Be Be Se Se Ge Se Ge Se Be Se Se Se Se Ge Ge Ge Se Se Se Se Se Se Se Se Ge Fe Se Se Be Be Se 


9 (28) 


2887 


2888 


1 
UAF PARSE tbese -1984 02:21: VAX-11 Bliss-32 V4.0-74 Page 106 
v04-00 AUTHORIZE_GENERATE == Interface to PL/I GENERAT 1 ~3007 1382 9¢:3}:38 NTEKSVMGHASTER-CUAR SRCTUAFPARSE 83204" 388 
>  LIBSKEYOS 4 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
; _LIBSSTATES 138 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
; LIBSKEY1$ 1 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
; SCODES 5467 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN‘2) 
H Library Statistics 
Pe SRE E iG Miko nile oe ee oe Symbols -------- Pages Processing 
$ File Total Loaded Percent Mapped Time 
; ~S255$DUA2B:[S¥SL 1B] TPAMAC,L 32:1 42 30 71 14 00:00.1 
; _$255$DUA28:CSYSLIBILIB.L32;1 1861 125 0 1000 00:02.2 
; COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:UAFPARSE/OBJ=OBJ$:UAFPARSE MSRC$:UAFPARSE/UPDATE=(ENHS$:UAF PARSE) 
; Size: 5467 code + 2309 data bytes 
; Run Time: 01:43.8 


; Elapsed Time: 01:50.7 
3; Lines/CPU Min: 168 

3; Lexemes/CPU-Min: 2683 

; Memory Used: 685 pages 
; Compilation Complete 
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